Графика в ексель

[Petrpervy]

Есть лист ексль в некоторых ячейках которого вставлены картинки.
Стоит задача определить имя картинки и в соседеней ячейке слева проставить ее имя. Удалось перебрать все картинки на листе таким способом:
Dim s As Shape
Dim i As Long
i = 1
For Each s In ActiveSheet.Shapes
MsgBox (s.name)
msgbox(s.top)
msgbox(s.left)
next
=========================
можно получить графические координаты каждой картинки, но не удается получить номер строки и столбца той ячейки, где находится картинка. Или это нужно высчитывать по координатам и ширине/высоте всех столбцов/строк?

[EducatedFool]

Sub test()
    Dim s As Shape
    For Each s In ActiveSheet.Shapes
       ' MsgBox s.Name
       ' MsgBox s.TopLeftCell.Address
       ' MsgBox s.TopLeftCell.Row & ", " & s.TopLeftCell.Column
       
       ' записываем имя фигуры в ячейку слева от неё
       s.TopLeftCell.Previous = s.Name
    Next
End Sub

[Petrpervy]

В принципе я уже увидел, что похожая тема была затронута на предыдущей странице, но там упоминалось только свойство .Adress, которое выдает строку (например "$J$2"), а через свойства .Row и .Column можно получить числовые значения, что гораздо удобнее.
Спасибо.