How to check if a shape or image exists in active sheet?

For example, there are dozens of shapes or images already added to the active worksheet, and now you want to check if a specific shape or image exists in the active sheet. How can you quickly perform this task without checking the shapes or images one by one? Excel does not have a built-in function for this, but this article introduces a VBA code to quickly determine if a shape or image exists in the active sheet.

Check if a shape or image exists in active sheet

Check if a shape or image exists in active sheet

Please apply the below macro code to check if a specific image exists in the active sheet.

1. Press Alt + F11 keys to enable Microsoft Visual Basic for Applications window.

2. Click Insert > Module and paste below code to the script.

VBA: Check if a shape or image exists

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. Press F5 to run the code, a dialog box will appear to indicate whether the image exists in the active sheet.

Tip: In the macro code, you can change the image name in xCharName = "cat" to suit your requirements.

Related Articles:

• How to quickly check if a range contains some values in Excel?