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

For example, there have been dozens of shapes or images added in the active worksheet already, and now you want to check if a specific shape or image exists in the active sheet or not, how can you quickly handle this job without checking the shapes or images one by one? In Excel, no built-in function can help you, but in this article, I introduce a VBA code to quickly find 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 below macro code to check if a specific image exists in 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 pops out to remind you if the image exists in the active sheet.

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

---

Export Graphics

Kutools for Excel's Export Graphics can export or save pictures, charts, or shapes as png, tif, gif, jpeg in a folder

Go to Download Free Trial 60 daysPurchase PayPal / MyCommerce

---

Relative Articles:

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

---

---

Recommended Productivity Tools for Excel