Bom dia pessoal,

Queria colocar um botão para adicionar ou diminuir +10 ou -10 do valor atual do eixo.
Como conseguiria fazer isso?

Consegui apenas com valores fixos:

Private Sub EixoPrincipal()
    
    ActiveSheet.ChartObjects("Grf.Visitas").Activate
    ActiveChart.HasAxis(xlValue) = True
    ActiveChart.Axes(xlValue).Select
    ActiveChart.Axes(xlValue).MaximumScale = 60

End Sub