Thread: Find Top and Left values for Shape in Chart

I am trying to write a short macro that will tell me the top and left values of a shape that I've clicked on within a chart.

Here is what i have:

Sub Display_Left_Top_Position()

Dim Left_Value As Double
Dim Top_Value As Double

Left_Value = ActiveChart.Shapes(Application.Caller).Left
Top_Value = ActiveChart.Shapes(Application.Caller).Top

MsgBox "Left Value: " & Left_Value & " Top Value: " & Top_Value

End Sub

However I get the following error: "The item with the specified name wasn't found". Anyone have any thoughts?

Thanks!