☰

Диаграмма Excel — автоматическая настройка масштаба вторичной оси

tag-icon • tag-icon microsoft-excel charts microsoft-excel-2016 pivot-chart
Диаграмма Excel — автоматическая настройка масштаба вторичной оси

У меня есть 3 сводные диаграммы, которые контролируются слайсером, который меняет конечную дату недели. На диаграмме у меня есть "Впечатления" на основной оси и "Клики" на вторичной оси.

Мне бы хотелось, чтобы масштаб Вторичной оси автоматически регулировался при изменении среза, чтобы он всегда был равен 2% от Первичной оси. Таким образом, я знаю, что когда Вторичная линия находится выше Первичной линии, мы достигли цели.

Есть ли у кого-нибудь идеи, как этого добиться?

решение1

Я решил проблему с помощью VBA и функции Worksheet Change.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim x As Long


With ActiveSheet.ChartObjects("Chart 1").Chart

    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.Axes(xlValue).MaximumScaleIsAuto = True
    ActiveChart.Axes(xlValue).MinimumScale = 0
    x = ActiveChart.Axes(xlValue).MaximumScale
    ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = (x * 0.02)

End With

End Sub

Связанный контент