Excel VBA Макросы. Как пройтись по всем картинкам?

[Посетитель]

Как пройтись по всем картинкам, которые находятся на указанном листе?

[Администратор]

Этот макрос проходит по всем рисункам, которые находятся на активном листе. Активный лист - это лист, который пользователь видит на мониторе.

Sub Макрос()

    Dim Рис As Shape
   
    For Each Рис In ActiveSheet.Shapes
    Next Рис
   
End Sub

[Посетитель]

спасибо