アクティブなシートに図形や画像が存在するかどうかを確認するにはどうすればよいですか？

例えば、すでに数十の図形や画像がアクティブなワークシートに追加されている場合、特定の図形や画像がアクティブなシートに存在するかどうかを確認したいとします。図形や画像を一つずつ確認せずにこのタスクを迅速に行うにはどうすればよいでしょうか？ Excelにはこの目的のための組み込み関数はありませんが、この記事ではVBAコードを使用してアクティブなシートに図形や画像が存在するかどうかを迅速に判断する方法を紹介します。

アクティブなシートに図形や画像が存在するか確認する

アクティブなシートに図形や画像が存在するか確認する

以下のマクロコードを適用して、アクティブなシートに特定の画像が存在するかどうかを確認してください。

1. Alt + F11 キーを押して Microsoft Visual Basic for Applications ウィンドウを有効にします。

2. 挿入 > モジュール をクリックし、以下のコードをスクリプトに貼り付けます。

VBA: 図形や画像が存在するか確認する

Sub CheckImage()
'UpdatebyExtendoffice20170927
    Dim xChar As Picture
    Dim xFlag As Boolean
    Dim xCharName As String
    On Error Resume Next
    Application.ScreenUpdating = False
    xCharName = "cat"
    xFlag = False
    For Each xChar In ActiveSheet.Pictures
    Debug.Print xChar.Name
        If xChar.Name = xCharName Then
            MsgBox "The Image is on the Active Sheet", vbInformation, "KuTools For Excel"
            xFlag = True
            Exit For
        End If
    Next
    If Not xFlag Then
        MsgBox "The Image is Not on the Active Sheet", vbInformation, "KuTools For Excel"
    End If
    Application.ScreenUpdating = True
End Sub

3. F5 キーを押してコードを実行すると、ダイアログボックスが表示され、アクティブなシートに画像が存在するかどうかが示されます。

ヒント: マクロコード内で、xCharName = "cat" の画像名を自分の要件に合わせて変更できます。

関連記事：

• Excelで範囲に特定の値が含まれているかどうかを迅速に確認するにはどうすればよいですか？