Excelでセルに画像が含まれているかどうかを確認する方法は？

Excelでアクティブなワークシート内のすべての画像を見つけて選択するのは簡単です。しかし、Excelでセルに画像が含まれているかどうかを確認する方法はご存知ですか？この記事で紹介する方法がお役に立つでしょう。

VBAコードを使用してセルに画像が含まれているか確認する

VBAコードを使用してセルに画像が含まれているか確認する

以下のVBAコードを使用すると、セルに画像が含まれているか確認できます。以下の手順で行ってください。

1. 画像が特定のセルに存在するかどうかを確認したいワークシートを開き、Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、挿入 > モジュールをクリックします。その後、VBAコードをコードウィンドウにコピーして貼り付けます。

VBAコード: Excelでセルに画像が含まれているか確認する

Sub CellHasPicture()
    Dim xRg As Range
    Dim xShape As Shape
    Dim xFlag As Boolean
    On Error Resume Next
    Set xRg = Application.InputBox("Please enter the cell address:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xFlag = False
    For Each xShape In ActiveSheet.Shapes
        If xShape.TopLeftCell.Address = xRg.Address Then
            xFlag = True
        End If
    Next
    If xFlag Then
        MsgBox "Image exists!"
    Else
        MsgBox "Image does not exist"
    End If
End Sub

3. F5キーを押してコードを実行します。表示されるKutools for Excelダイアログボックスに、画像の有無を確認したいセルのアドレスを入力し、OKボタンをクリックします。スクリーンショットをご覧ください：

4. 指定したセルに画像が存在するかどうかを示すダイアログボックスが、以下のように表示されます。

関連記事：

• Excelで全ての画像を自動的に移動してセルのサイズに合わせるにはどうすればよいですか？
• Excelでセル内に画像を中央揃えにするにはどうすればよいですか？
• Excelでセルの値に基づいて画像または写真を動的に挿入するにはどうすればよいですか？
• Excelで画像をクリックしたときに拡大するにはどうすればよいですか？