x and y point value

[newapa]

Hi
i'm trying to get the selected x and y value and change it so they got x and y in a label. but i didn't manage it to work.

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim sPoint As Point
   
    If TypeName(Selection) <> "Point" Then
        Exit Sub
    End If
 
    With ActiveChart
       .SeriesCollection(TypeName(Selection)).XValues = X
       .SeriesCollection(TypeName(Selection)).Value = y
    End With
 
    DoEvents
end sub

thx in advance

 

[Andrew Poulsom]

See if this helps you:

http://www.mrexcel.com/forum/excel-questions/45004-identifying-data-points-chart.html