VBA在EXCEL寻找是否包含图片

以下是一个VBA代码示例，用于在Excel中查找包含图像的单元格：

Sub FindImages()

Dim cell As Range

For Each cell In ActiveSheet.UsedRange

If cell.Type = xlPicture Then

MsgBox "Found an image in cell " & cell.Address

End If

Next cell

End Sub

代码遍历活动工作表上的所有单元格，并检查单元格中是否包含图像。如果找到图像，则使用消息框显示包含图像的单元格地址。

请注意，在Excel中插入图像时，可以将其拖动到单元格中，也可以使用插入图片选项卡。在这两种情况下，图像都将嵌入到单元格中。如果您要查找以其他方式插入的图像，例如通过复制和粘贴，它们可能不会嵌入到单元格中，因此可能需要使用其他方法来识别这些图像。