Help! Как проверить наличие "рисунков" в листах книги?

[Bezdar]

Уважаемые профи! Подскажите пожалуйста!!!

[VictorM]

Способов может быть несколько, вот один:

Sub AllShapesInWorksheet()
    Dim iShape As Shape
    For Each iShape In Worksheets(1).Shapes
        MsgBox "Обнаружен об'ект «" & iShape.Name, , ""
        'здесь вместо MsgBox Ваш код
    Next
End Sub

[Bezdar]

Спасибо, в принципе я так и делала, только указывала не Shape, а Picture. Так у меня все немыслимые "картинки" перебираются (откуда чего только берется!). А мне найти надо именно рисунок -Picture.

[VictorM]

А мне найти надо именно рисунок -Picture.

тогда можно так:

Sub AllPictureInWorksheet()
    Dim iShape As Shape
    For Each iShape In Worksheets(1).Shapes
        If iShape.Type = msoPicture Then
            MsgBox "Это " & iShape.Name & " рисунок", , ""
        End If
    Next
End Sub

[Bezdar]

Спасибо огромадное!!! Про 'Type' я как-то и не подумала.