Excel技巧：一键删除工作表中的所有图片
Excel如何删除全部图片？三种高效方法详解
在处理Excel工作表时，有时我们需要一键清除所有图片，比如从网上下载的表格中带有大量无关图片，或者为了减小文件体积。手动逐个删除既费时又容易遗漏。下面介绍三种简单有效的方法，让你轻松搞定。
方法一：使用“定位条件”快速选取图片
- 按 Ctrl + G 或 F5 打开“定位”对话框。
- 点击 定位条件，选择 对象，然后点击 确定。
- 此时工作表中的所有图片（包括形状、图表等）都被选中。
- 按 Delete 键即可全部删除。
注意：此方法会删除所有类型的对象，如果你只想删除图片而保留图表，请使用后续方法。
方法二：使用VBA宏批量删除（仅图片）
如果你希望只删除图片（例如 .jpg、.png 等），而不影响其他对象，可以运行一段简单的宏代码。
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
- 按 Alt + F11 打开VBA编辑器。
- 插入一个新模块（插入 → 模块）。
- 复制上述代码粘贴到模块中。
- 关闭编辑器，按 Alt + F8，选择 DeleteAllPictures 并运行。
方法三：使用查找和替换（特殊案例）
如果你的图片是作为单元格的“图片”插入的（例如通过“插入→图片→来自文件”），可以按 Ctrl + H，在“查找内容”中输入 .jpg 或 .png（根据你的图片格式），然后点击 查找全部，在搜索结果中按 Ctrl + A 全选，再按删除。不过这种方法只适合图片文件名包含扩展名的情况，局限性较大。
小贴士
- 删除前建议先备份工作表，避免误删重要内容。
- 如果需要删除多个工作表中的图片，可以修改VBA代码，遍历所有工作表。
掌握这些技巧，你就能在几秒内清理掉所有不需要的图片，提升工作效率。试试吧！