Excel VBA - если условие на изображении

Question

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

ActiveSheet.Shapes.Range(Array("Picture -767")).Select

Это код, который я использую для выбора изображения. Я не смог выяснить, как управлять изображением. То, что я пытаюсь сделать, это

If Image is found then
    Part1
    Part2
Else
    MsgBox 'Macro is not intended for this document'
End if

Вся помощь приветствуется!

Answer 1

Это должно работать:

Option Explicit

Sub PicTest()
Dim Shp As Shape

    On Error GoTo ErrorExit
    Set Shp = ActiveSheet.Shapes("Picture -767")
    On Error GoTo 0

    ActiveSheet.Shapes.Range(Array("Picture -767")).Select
    Part1
    Part2
    Exit Sub

ErrorExit:
    MsgBox "Macro is not intended for this sheet"
End Sub