如何删除单元格区域中的所有图片？

如果您的工作表中插入了多张图片，现在您希望删除指定区域中的某些图片，该如何快速处理呢？

使用VBA代码删除特定单元格区域中的所有图片

使用Kutools for Excel删除工作表或整个工作簿中的所有图片

使用VBA代码删除特定单元格区域中的所有图片

这里有一个简单的VBA代码可以帮助您一次性删除选定区域中的图片，而无需逐个删除，请按照以下步骤操作：

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA代码：删除选定单元格区域中的所有图片：

Sub DeletePic()
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("A5:B8")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

注意：在上述代码中， A5:B8 是您要删除图片的区域，请根据需要进行更改。

3. 然后按 F5 键运行此代码，所选区域中的图片将立即被删除，参见截图：

使用Kutools for Excel删除工作表或整个工作簿中的所有图片

如果您需要从工作表或整个工作簿中删除所有图片，Kutools for Excel 的 删除插图和对象 工具可以帮您实现。

安装Kutools for Excel后，请按照以下步骤操作：

1. 单击 Kutools > 删除 > 删除插图和对象，参见截图：

2. 在 删除插图和对象 对话框中，勾选 删除 部分中的 图片，然后在 查找范围 部分选择要删除图片的 范围，参见截图：

3. 然后单击 确定 按钮，所有图片将根据您的选择从工作表或整个工作簿中删除。