Координаты объектов в Excel

[alex_r]

Приветствую!

Как можно получить координаты объекта в Excel (Shapes) в виде ссылки типа А1?

Этот код должен по идее собирать ввиде ссылок координаты всех объектов на лист Sheet1

i = 2

For a = 1 To Worksheets.Count
For Each SHP In Worksheets(a).Shapes
Worksheets("Sheet1").Range("A" & i).Value = i - 1

CFA = Worksheets(a).Name & "!" & SHP.Parent.Address '<-----Проблемная строка

Worksheets("Sheet1").Hyperlinks.Add Anchor:=Worksheets("Sheet1").Range( "b" & i), Address:="", SubAddress:=CFA, _
TextToDisplay:=CFA
i = i + 1
Next SHP
Next a

Но SHP.Parent.address не работает. Если вместо Shapes искать например комментарии, то все рабоает норм. Что можно сделать, что бы определялись координаты в этом виде для всех объектов?

[EducatedFool]

SHP.Parent.Address

Для объекта SHP родителем (.Parent) будет объект типа Worksheet, который не имеет свойства Address, - потому и ошибка...


Я даже не знаю, возможно ли сделать ссылку с ячейки на автофигуру (или любой другой Shape)
Если возможно - прикрепите пример файла с такой гиперссылкой - в ответ получите код.

PS: Гиперссылку на ячейку, расположенную под Shape, получить легко.

[alex_r]

Мне достаточно на ячейку под Shape.

[EducatedFool]

Нажмите синюю кнопку в этом файле: http://excelvba.ru/XL_Files/Sample__...__18-50-47.zip

Вот весь код:

Sub test()
    Dim sh1 As Worksheet: Set sh1 = ActiveSheet
    Dim sh As Worksheet, sha As Shape, НоваяЯчейка As Range
    For Each sh In ThisWorkbook.Worksheets
        For Each sha In sh.Shapes
            Set НоваяЯчейка = sh1.Range("a" & sh1.Rows.Count).End(xlUp).Offset(1)
            sh1.Hyperlinks.Add НоваяЯчейка, "", sha.TopLeftCell.Address(, , , True) _
                                             , , sha.TextFrame.Characters.Text
        Next sha
    Next sh
End Sub

[alex_r]

Отлично, то что нужно! Спасибо.