Сохраните ссылку на форму в переменной уровня модуля, потом используйте ее в другом макросе. Код модуля:  
 
Dim MyRect As Shape  
 
Sub CreateRect()  
Set MyRect = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 100, 100, 100, 100)  
End Sub  
 
Sub DisplayMyRectPos()  
If MyRect Is Nothing Then  
   MsgBox "Форма не создана"  
Else  
   With MyRect  
       MsgBox "Left=" & .Left & vbLf & "Top=" & .Top & vbLf & _  
           "Width=" & .Width & vbLf & "Height=" & .Height  
   End With  
End If  
End Sub

При создании автофигур, назначайте им всем один и тот же макрос, выводящий сообщение о координатах текущей фигуры.  
 
Потом достаточно будет щелкнуть на фигуре, - и сразу увидите её новые координаты  
Пример можно найти здесь: http://excelvba.ru/code/ShapesCoordinates  
 
Правда, перед перетаскиванием фигуры, которой назначен макрос, её придётся предварительно выделить, удерживая клавишу Ctrl (чтобы не сработал макрос)