Events with Chart Sheets : Chart Event « Excel « VBA / Excel / Access / Word

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

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

 

Related examples in the same category