[FONT=Courier New][COLOR=darkblue]Option[/COLOR] [COLOR=darkblue]Explicit[/COLOR]
[COLOR=darkblue]Public[/COLOR] [COLOR=darkblue]WithEvents[/COLOR] clsChart [COLOR=darkblue]As[/COLOR] Chart
[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] clsChart_Select([COLOR=darkblue]ByVal[/COLOR] ElementID [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR], [COLOR=darkblue]ByVal[/COLOR] Arg1 [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR], [COLOR=darkblue]ByVal[/COLOR] Arg2 [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR])
[COLOR=darkblue]Dim[/COLOR] x [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Variant[/COLOR]
[COLOR=darkblue]Dim[/COLOR] y [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Variant[/COLOR]
[COLOR=darkblue]Dim[/COLOR] Msg [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR]
[COLOR=darkblue]If[/COLOR] ElementID = xlSeries [COLOR=darkblue]Then[/COLOR]
[COLOR=darkblue]If[/COLOR] Arg2 > 0 [COLOR=darkblue]Then[/COLOR]
[COLOR=darkblue]With[/COLOR] ActiveChart
x = .SeriesCollection(Arg1).XValues
y = .SeriesCollection(Arg1).Values
Msg = "X = " & x(Arg2) & vbCrLf
Msg = Msg & "Y = " & y(Arg2)
MsgBox Msg, vbInformation
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
End [COLOR=darkblue]Sub[/COLOR]
[/FONT]