如何檢查活動表中是否存在形狀或圖像？

如何檢查活動表中是否存在形狀或圖像？

例如，已經(jīng)在活動工作表中添加了數(shù)十種形狀或圖像，現(xiàn)在您要檢查活動表中是否存在特定的形狀或圖像，如何快速處理此作業(yè)而無需檢查形狀或一張一張的圖片？ 在Excel中，沒有內(nèi)置函數(shù)可以為您提供幫助，但是在本文中，我介紹了VBA代碼以快速查找活動工作表中是否存在形狀或圖像。

檢查活動表中是否存在形狀或圖像

檢查活動表中是否存在形狀或圖像

請應(yīng)用下面的宏代碼以檢查活動表中是否存在特定圖像。

1。 按 Alt + F11鍵 啟用鍵 Microsoft Visual Basic應(yīng)用程序 窗口。

2。 點(diǎn)擊 插頁 > 模塊 并將以下代碼粘貼到腳本中。

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 對于每個 xChar In ActiveSheet.Pictures Debug.Print xChar.Name If xChar.Name = xCharName Then MsgBox "圖像在活動工作表上", 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 要運(yùn)行代碼，將彈出一個對話框，提醒您當(dāng)前工作表中是否存在圖像。

Tips:：在宏代碼中，您可以在 xCharName =“貓” 滿足您的需求。

相關(guān)文章： 如何快速檢查范圍是否包含Excel中的某些值？