Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Embedded Chart Mouse Events

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 End Sub