Grell, тут не долго править =):
[vba]Код
Sub Макрос3()
Dim r As Point
Dim ch1 As Chart
n& = 5 ' 5я точка
ActiveSheet.ChartObjects ("Диаграмма 1").Activate
Set ch1 = ActiveChart
Set r = ch1.SeriesCollection(1).Points(n)
MsgBox "y = " & r.Top & Chr(13) & "x = " & r.Left ' положение точки в области графика
MsgBox "y1 = " & ch1.ChartArea.Top & Chr(13) & "x1 = " & ch1.ChartArea.Left 'положения области графика на листе
Y# = ch1.ChartArea.Top + r.Top
X# = ch1.ChartArea.Left + r.Left
MsgBox "Y = " & Y & Chr(13) & "X = " & X 'видимо, это то, что вы ищите =)
End Sub
[/vba]