zooms in on a left mouse click and zooms out on a right mouse click.
Private Sub MyChartClass_MouseDown(ByVal Button As Long, ByVal Shift _ As Long, ByVal x As Long, ByVal y As Long) If Button = 1 Then
ActiveChart.Axes(xlValue).MaximumScale = ActiveChart.Axes(xlValue).MaximumScale - 50 End If If Button = 2 Then
ActiveChart.Axes(xlValue).MaximumScale = ActiveChart.Axes(xlValue).MaximumScale + 50 End If End Sub