如何在单元格范围内删除所有图片？

您可以快速将图像添加到 Excel 中的单元格，以提高电子表格的美观性。但是，处理这些图片可能需要花费大量时间，尤其是在您需要删除大量图片时。幸运的是，Excel 拥有强大的工具和功能，可用于自动化重复性操作并提高工作流程。在本教程中，我们将向您逐步展示如何从您选择的 Excel 单元格范围内删除所有图像。无论您是不小心添加了许多图像，还是仅仅需要清理电子表格，此视频都将向您展示如何有效地删除这些图像，而无需逐个删除它们。

在本文结束时，您应该能够使用 Excel 的内置工具从选定的单元格中删除图像，从而节省大量时间和工作量。因此，让我们开始并了解如何在 Excel 中从一组单元格中删除所有图像！

删除单元格范围内所有图片

在这里，我们将首先创建一个 VBA 模块，然后运行它以完成任务。因此，让我们了解一个简单的过程，了解如何在 Excel 中删除单元格范围内的所有图片。

步骤 1

考虑一个 Excel 工作表，其中包含类似于下图的图片。

首先，右键单击工作表名称并选择“查看代码”以打开 VBA 应用程序，然后单击“插入”并选择“模块”，然后将下面提到的代码复制到文本框中，如下图所示。

右键点击 > 查看代码 > 插入 > 模块 > 复制。

代码

Sub DeletePic()
   Dim xPicRg As Range
   Dim xPic As Picture
   Dim xRg As Range
   Application.ScreenUpdating = False
   Set xRg = Range("A1:C6")
   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

步骤 2

然后将工作表另存为启用宏的模板，并单击 F5 运行模块，指定范围内的所有图像将被删除。

保存 > F5。

结论

在本教程中，我们使用了一个简单的示例来演示如何在 Excel 中删除单元格范围内的所有图片。

更新于: 2023年7月7日

631 次查看

启动您的 职业生涯

通过完成课程获得认证

开始
广告