Events with Embedded Charts : Chart Event « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Chart Event

Events with Embedded Charts

 
Private Sub myChartClass_DragOver()
    Range("A1").Value = "You have activated the DragOver() sub procedure."
End Sub
Private Sub myChartClass_DragPlot()
    Range("A2").Value = "You have activated the DragPlot() sub procedure."
End Sub
Private Sub myChartClass_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
    Range("A3").Value = "You have activated the MouseDown() sub procedure."
End Sub
Private Sub myChartClass_MouseMove(ByVal Button As Long, _
           ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
    Range("L34").Value = "You have activated the MouseMove() sub procedure."
End Sub
Private Sub myChartClass_MouseUp(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
    Range("L34").Value = "You have activated the MouseUp() sub procedure."
End Sub
Private Sub myChartClass_Select(ByVal ElementID As Long,ByVal Arg1 As Long, ByVal Arg2 As Long)
    If ElementID = 3 And Arg2 > 0 Then
        ActiveChart.SeriesCollection(Arg1).Points(Arg2).ApplyDataLabels Type:=xlShowValue
    End If
End Sub

Private Sub myChartClass_Resize()
    Range("A2").Value = "You have activated the Resize() sub procedure."
End Sub
Private Sub myChartClass_SeriesChange(ByVal SeriesIndex As Long,ByVal PointIndex As Long)
        Range("A3").Value = "You have activated the SeriesChange() sub procedure."
End Sub

 

Related examples in the same category