如何检查当前工作表中是否存在某个形状或图片？

例如，当前工作表中已经添加了几十个形状或图片，现在您想检查某个特定的形状或图片是否存在于当前工作表中。如何快速完成此任务而不必逐一检查形状或图片呢？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 中某个区域是否包含某些值？