如何檢查活動工作表中是否存在某個形狀或圖片？

例如，活動工作表中已經添加了數十個形狀或圖片，現在您想檢查特定的形狀或圖片是否在活動工作表中。如何快速執行此任務而不必逐一檢查形狀或圖片呢？ 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 中的某個區域是否包含某些值？