Excel работа с шейпами

[bdfy]

Есть екселевская рабочая книга. на листе поверх накидано формул emf рисунками. формулы эти полезны ибо формулы в ячейках екселя надо набирать по ним.
записал макрос который шейпы эти сдвигает в сторону (чтобы не мешали работе)

For Each sh In ActiveSheet.shapes
Debug.Print sh.Name
sh.Select


    With Selection
        .ShapeRange.IncrementLeft 500
        .Placement = xlMove
        .PrintObject = True
    End With
Next

проблема оставшаяся в том что шейпы перекрывают друг друга. т.е по 2-3 может находится над одной ячейкой. как их растащить ?
т.е как узнать какие шейпы находятся вблизи ячейки выбранной (тогда можно перебрать пару столбцов - шейпы почти в столбик расположены сейчас)
или как узнать координаты шейпа (чтоб перебрать и отсортировать ) ?

[alex77755]

Debug.Print sh.Name
Debug.Print sh.Left
Debug.Print sh.Top
Debug.Print sh.Width
Debug.Print sh.Height