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.
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
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
If xChar.Name = xCharName Then
MsgBox "The Image is on the Active Sheet", vbInformation, "KuTools For Excel"
xFlag = True
If Not xFlag Then
MsgBox "The Image is Not on the Active Sheet", vbInformation, "KuTools For Excel"
Application.ScreenUpdating = True
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.
Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
More than 300 powerful features. Supports Office/Excel
2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features
30-day free trial. 60-day money back guarantee.