Форум по VBA и MS Office

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

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

Sub Макрос()

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

спасибо