如何在Excel中批量删除所有图片

方法一:使用定位条件

对于Excel 2010及以上版本,这是最简便的方法:

  1. 按 Ctrl + G 打开定位窗口,或点击“开始”选项卡中的“查找和选择” → “定位条件”。
  2. 在弹出的对话框中选择“对象”,然后点击“确定”。
  3. 此时所有图片已被选中,按 Delete 键即可全部删除。

方法二:使用VBA宏

如果需要经常批量删除,可以录制或编写一个宏:

Sub DeleteAllPictures()
    Dim pic As Shape
    For Each pic In ActiveSheet.Shapes
        If pic.Type = msoPicture Or pic.Type = msoLinkedPicture Then
            pic.Delete
        End If
    Next pic
End Sub

按 Alt + F11 打开VBA编辑器,插入模块并粘贴上述代码,然后运行即可删除当前工作表中的所有图片。

方法三:使用快捷键组合

在Excel 2013以后,也可以使用快捷键 Ctrl + Shift + ; 选择所有对象,但这需要先设置快捷键。更简单的方法是:

  1. 按 F5 键打开定位窗口。
  2. 按 Alt + S 选择“对象”,按 Enter 确定。
  3. 此时所有图片被选中,按 Delete 删除。

注意事项

  • 这些方法会删除所有对象(包括图表、文本框等),如果只想删除图片,建议使用VBA宏精确控制。
  • 操作前建议备份文件,以防误删。
  • 不同Excel版本界面略有差异,但核心功能一致。