Excel表格怎么一键删除所有图片?超简单方法!
方法一:使用“定位条件”功能(适合Excel 2010及以上版本)
- 选中需要删除图片的整个工作表区域(按 Ctrl + A 全选)。
- 按 F5 键或 Ctrl + G 打开“定位”对话框。
- 点击左下角的“定位条件”按钮。
- 在弹出的对话框中选择“对象”,然后点击“确定”。
- 此时所有图片(包括形状、图表等对象)会被选中,按 Delete 键即可全部删除。
方法二:使用VBA宏代码(适合所有版本,可一键执行)
- 按 Alt + F11 打开VBA编辑器。
- 在菜单栏点击“插入” -> “模块”。
- 将以下代码复制粘贴到模块中:
Sub DeleteAllPictures() Dim pic As Shape For Each pic In ActiveSheet.Shapes If pic.Type = msoPicture Then pic.Delete End If Next pic End Sub - 关闭VBA编辑器,按 Alt + F8 打开宏对话框,选择“DeleteAllPictures”并点击“运行”。
注意:VBA方法仅删除图片(Picture),不删除文本框、图表等其他对象。如需删除所有对象,可将代码中的 If pic.Type = msoPicture Then 改为 pic.Delete。
小贴士
如果只想删除工作表中部分区域的图片,可以先框选指定区域,再执行“定位条件”或VBA代码(需修改代码为选中区域内的形状)。另外,操作前建议备份文件,以防误删。
现在,您再也不用逐个手动删除Excel中的图片了!