如何检查Excel中的单元格是否包含图片？

在Excel中查找并选择活动工作表中的所有图片非常容易。但是，您知道如何检查Excel中的单元格是否包含图片吗？本文介绍的方法可以帮助您完成这一任务。

使用VBA代码检查单元格是否包含图片

使用VBA代码检查单元格是否包含图片

以下VBA代码可以帮助您检查单元格是否包含图片。请按照以下步骤操作：

1. 打开需要检查特定单元格是否包含图片的工作表，然后按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击 插入 > 模块。然后将VBA代码复制并粘贴到代码窗口中。

VBA代码：检查Excel单元格是否包含图片

Sub CellHasPicture()
    Dim xRg As Range
    Dim xShape As Shape
    Dim xFlag As Boolean
    On Error Resume Next
    Set xRg = Application.InputBox("Please enter the cell address:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xFlag = False
    For Each xShape In ActiveSheet.Shapes
        If xShape.TopLeftCell.Address = xRg.Address Then
            xFlag = True
        End If
    Next
    If xFlag Then
        MsgBox "Image exists!"
    Else
        MsgBox "Image does not exist"
    End If
End Sub

3. 按 F5 键运行代码。弹出的 Kutools for Excel 对话框中，输入要检查图片的单元格地址，然后点击 确定 按钮。参见截图：

4. 将出现一个对话框，如下所示，指示指定单元格中是否存在图片。

相关文章：

• 如何自动更改Excel中所有图片以随单元格移动和调整大小？
• 如何在Excel单元格中居中图片？
• 如何根据单元格值动态在单元格中插入图片或图像？
• 如何在Excel中单击图片时放大图片？