Private Sub xlChart_MouseDown(ByVal Button As Long, ByVal Shift As Long,ByVal x As Long, ByVal y As Long) If Button = 1 Then
xlChart.Axes(xlValue).MaximumScale = xlChart.Axes(xlValue).MaximumScale - 50 End If
If Button = 2 Then
xlChart.Axes(xlValue).MaximumScale = xlChart.Axes(xlValue).MaximumScale + 50 End If