Mar 18, 2005 · Private Sub cmdMoveArrow_Click() Dim rngActive As Range Dim dXVal As Double Dim dYVal As Double Dim chtChart As Chart Set rngActive = ActiveCell 'We have to activate the chart to use GET.CHART.ITEM Me.ChartObjects(1).Activate 'Find the XY position of the middle top of the third column 'in the data series, 'returned in XLM coordinates dXVal = ExecuteExcel4Macro("GET.CHART.ITEM(1,2,""S1P3"")") dYVal = ExecuteExcel4Macro("GET.CHART.ITEM(2,2,""S1P3"")") 'Get the Chart Set chtChart = Me ...