Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Events with Chart Sheets

Private Sub Chart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, _                          ByVal Arg2 As Long)     If ElementID = 3 And Arg2 > 0 Then         With ActiveChart.SeriesCollection(Arg1).Points(Arg2)             .ApplyDataLabels Type:=xlShowValue         End With      End If End Sub