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