可批量清除Excel中所有图片：一、用“定位条件”选中全部对象后删除；二、通过“选择窗格”识别并多选删除；三、运行VBA宏遍历各工作表删除图片类Shape对象。
如果您在Excel工作表中插入了大量图片，而需要批量清除却不希望逐个点击删除，则可以通过“定位条件”功能一次性选中所有图片对象并统一删除。以下是实现此操作的具体步骤：
一、使用定位条件批量选中图片
Excel的“定位条件”功能支持按对象类型筛选，其中“对象”选项可识别图片、形状、图表等嵌入式对象。启用该功能后，系统将自动高亮并选中工作表中所有图片，为后续删除提供前提。
1、按下 Ctrl + G 打开“定位”对话框。
2、点击右下角的 “定位条件…” 按钮。
3、在弹出窗口中选择 “对象” 选项，然后点击“确定”。
4、此时工作表中所有图片（包括嵌入的图片、剪贴画、屏幕截图等）将被同时选中，边框呈虚线闪烁状态。
5、直接按键盘上的 Delete 键，全部图片即被移除。
二、通过选择窗格辅助识别与删除
当工作表中存在隐藏于单元格下方或与其他对象重叠的图片时，“定位条件”可能无法完全覆盖。此时可启用“选择窗格”，以列表形式显示所有对象名称，并支持单独或批量隐藏/删除。
1、切换到 “开始”选项卡 → “编辑”组 → “查找和选择” → “选择窗格”。
2、右侧打开的“选择窗格”面板中，所有对象（含图片）按层级列出，图标为小方块的即为图片对象。
3、按住 Ctrl 键，逐个单击图片条目完成多选；或点击顶部空白处后按 Ctrl + A 全选所有对象。
4、确认所选均为图片后，点击窗格底部的 “删除”图标（垃圾桶） 或直接按 Delete 键。
三、使用VBA代码一键清除全部图片
对于包含多个工作表或需频繁执行清理任务的用户，手动操作效率较低。VBA可遍历当前工作簿所有工作表中的Shapes集合，精准识别并删除图片类对象（Type = msoPicture），避免误删图表或形状。
1、按 Alt + F11 打开VBA编辑器。
2、在左侧项目资源管理器中，双击目标工作表或插入新模块（右键 → 插入 → 模块）。
3、粘贴以下代码：
Sub DeleteAllPictures()
Dim ws As Worksheet
Dim shp As Shape
For Each ws In ActiveWorkbook.Worksheets
For Each shp In ws.Shapes
If shp.Type = msoPicture Then shp.Delete
Next shp
Next ws
End Sub
4、将光标置于代码内任意位置，按 F5 运行宏。
5、运行完成后，所有工作表中的图片对象均被清除，无需人工干预。
