Gráfico do Excel - Ajustar Automaticamente a Escala do Eixo Secundário

Question

Eu tenho 3 gráficos dinâmicos sendo controlados por um fatiador que altera a data final da semana. No gráfico eu tenho "Impressões" no Eixo Primário e "Cliques" no eixo secundário.

O que eu gostaria é que a escala do eixo Secundário se ajuste automaticamente quando o fatiador é alterado, de modo que seja sempre igual a 2% do eixo Primário. Dessa forma, sei que quando a linha secundária está acima da linha principal, atingimos nosso alvo.

Alguém tem alguma ideia de como conseguir isso?

    

Answer 1

Eu resolvi o problema usando o VBA e a função Alterar planilha

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