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

ms excelmicrosoft technologiescomputers更新于 2024/8/3 5:00:17

您可以快速向 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