可批量清除Excel中所有图片和形状：一、用Ctrl+G打开定位对话框，勾选“对象”后Delete删除；二、通过“选择窗格”多选后Delete；三、运行VBA代码遍历删除ActiveSheet.Shapes中全部形状对象。
如果您在Excel表格中插入了大量图片和形状，需要批量清除以简化工作表或提升文件性能，则可以通过定位条件快速选中所有对象并统一删除。以下是解决此问题的步骤：
一、使用“定位条件”功能选择所有对象
Excel内置的“定位条件”支持一次性筛选出工作表中所有图片、形状、图表等对象，避免手动逐个点击的低效操作。该方法适用于所有版本的Excel（2010及以上），且不依赖宏或插件。
1、按 Ctrl + G 打开“定位”对话框。
2、点击右下角的 “定位条件…” 按钮。
3、在弹出窗口中，勾选 “对象” 选项，然后点击“确定”。
4、此时工作表中所有图片、形状、文本框、自选图形等对象将被同时选中，呈虚线边框高亮状态。
5、按键盘上的 Delete 键，所有已选对象即刻被移除。
二、通过“选择窗格”逐一隐藏后批量删除
当部分对象被其他内容遮挡或嵌入单元格难以被“定位条件”识别时，“选择窗格”可列出全部对象名称并支持多选，是更可控的替代方案。
1、切换到 “开始”选项卡，在“编辑”组中点击 “查找和选择” → “选择窗格”。
2、右侧弹出“选择窗格”面板，显示当前工作表中所有对象的名称（如“图片 1”“矩形 3”等）。
3、按住 Shift 键 并单击首尾对象，或按住 Ctrl 键 逐个点击多个对象，实现多选。
4、确认全部目标对象已被选中（名称前出现蓝色高亮）后，直接按 Delete 键删除。
三、使用VBA代码一键清除指定工作表所有形状对象
对于需频繁执行清理操作的用户，VBA可跳过交互步骤，直接遍历并删除Shape对象集合，包括嵌入式图片、AutoShape、图表等，但不删除图表区本身（仅清除其作为Shape对象的部分）。
1、按 Alt + F11 打开VBA编辑器。
2、在左侧工程资源管理器中，双击需处理的工作表（如 Sheet1）。
3、在右侧代码窗口中粘贴以下代码：
Sub DeleteAllShapes()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Delete
Next shp
End Sub
4、将光标置于代码内任意位置，按 F5 运行，所有形状类对象立即被清除。
