Excel 如何检查一个形状或图像是否存在于活动的Excel表格中

通常情况下，我们不需要在Excel中操作照片或图像；然而，从谷歌对这个问题的搜索量来看，显然人们对如何操作很感兴趣，想了解一下。创建一个用户定义的函数来验证一个单元格是否包含一个图像文件，是完成这一任务的最快速和最简单的技术。

本教程将指导你完成定义一个用户定义函数的步骤，以便你可以检查一个图片是否存储在一个特定的单元格。或者如何使用VBA宏代码来确定一个单元格内是否存储有图片。

检查图片是否存在的VBA代码

在我们的例子中，我们在Excel中有一张图片，如以下截图所示。

第1步

按Alt和F11键 （Alt+F11） 打开Microsoft Visual Basic for Application窗口。请看下面的图片。

第2步

之后，从菜单栏选择 **插入 >模块 **，弹出模块窗口。请看下面的图片。

第3步

打开模块窗口后，在其中输入以下VBA代码。

Sub CheckImage()
   Dim xChar As Picture
   Dim xFlag As Boolean
   Dim xCharName As String
   On Error Resume Next
   Application.ScreenUpdating = False
   xCharName = "Picture 2"
   xFlag = False
   For Each xChar In ActiveSheet.Pictures
   Debug.Print xChar.Name
      If xChar.Name = xCharName Then
         MsgBox "The Image Exists", vbInformation, "VBOutput"
         xFlag = True
         Exit For
      End If
   Next
   If Not xFlag Then
      MsgBox "The Image does not Exists", vbInformation, "VBOutput"
   End If
   Application.ScreenUpdating = True
End Sub

请参考以下截图。

在这个VBA代码中，在xCharName=”Picture 2 “的地方，你可以添加你的图片名称。

第4步

添加完VBA代码后，按F5或点击运行来运行该代码。

你可以保存上述VBA代码。要保存VBA代码，请进入 **文件 >保存。 **

运行VBA代码后，如果图像存在于excel表中，它将显示 “The Image Exists”。

结语

在本教程中，我们解释了如何使用VBA代码来检查活动的Excel工作表中是否存在图像。