Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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