可一键选中Excel中所有嵌入式图片:先用Ctrl+G打开定位对话框,点击“定位条件”并选择“对象”即可批量选中全部图形对象;若需精准识别图片,可用VBA宏通过shp.Type = msoPicture筛选纯图片。

如果您在Excel表格中插入了多张图片,需要快速选中全部图片进行统一调整或删除,则可以利用Excel内置的“定位条件”功能实现一键选中所有图片对象。以下是具体操作步骤:
一、使用定位条件功能选中所有图片
Excel的“定位条件”中的“对象”选项可识别工作表中所有嵌入式图形对象(包括图片、形状、图表、文本框等),通过该功能可批量选中全部图片,无需逐一手动点击。
1、确保当前处于包含图片的工作表中,并取消任何已有选中状态(可按Esc键确认无活动选区)。
2、按下 Ctrl + G 打开“定位”对话框。
3、点击右下角的“定位条件”按钮。
4、在弹出的“定位条件”窗口中,选择 对象 选项,然后点击“确定”。
5、此时工作表中所有图片、形状、图表等对象将被同时选中,图片四周出现控制点,状态栏显示已选中对象数量。
二、配合筛选与图层管理精准识别图片
若工作表中存在大量非图片对象(如自选图形、SmartArt、图表等),仅用“定位条件→对象”会一并选中,此时可通过临时隐藏其他对象类型,缩小识别范围,提高图片选中准确性。
1、全选工作表(Ctrl + A),右键任意列标→选择“隐藏”,暂时隐藏所有列以暴露绘图层(此步非必须,但有助于视觉聚焦)。
2、按 F5 调出“定位”对话框,点击“定位条件”→勾选 对象→确定。
3、在选中状态下,观察每个对象的格式选项卡:图片对象的“图片格式”选项卡可见,而形状对象显示“形状格式”;可据此人工剔除非图片对象(按住Ctrl键逐个点击取消选中)。
三、使用VBA宏实现纯图片精准一键选中
标准“定位条件→对象”无法区分图片与其它图形类型,而VBA可通过Shape.Type属性精确识别msoPicture类型对象,从而只选中真正的嵌入式图片(非截图粘贴的形状、非PNG/JPEG插入的图标等)。
1、按 Alt + F11 打开VBA编辑器。
2、在左侧工程资源管理器中,双击对应工作表名称(如Sheet1),或插入新模块(右键→插入→模块)。
3、粘贴以下代码:
Sub SelectAllPictures()
Dim shp As Shape
Dim picRange As New Collection
For Each shp In ActiveSheet.Shapes
If shp.Type = msoPicture Then
shp.Select (False)
End If
Next shp
End Sub
4、关闭VBA编辑器,返回Excel,按 Alt + F8,运行宏“SelectAllPictures”。










