Excel中批量保存图片的几种高效方法
Excel中批量保存图片的几种高效方法
在日常工作中，我们经常需要从Excel表格中提取图片，比如产品图片、图表、截图等。如果只有几张，手动右键保存即可；但面对几十上百张图片时，手动操作简直就是噩梦。本文介绍四种批量保存图片的方法，涵盖VBA宏、内置功能、插件工具等，帮你彻底解放双手。
方法一：使用VBA宏（最灵活，适合程序员）
VBA宏是Excel的自动化利器，可以精准控制图片导出位置。打开VBA编辑器（按Alt+F11），插入模块，粘贴以下代码：
Sub ExportPictures()
Dim objPic As Shape
Dim i As Integer
i = 1
For Each objPic In ActiveSheet.Shapes
If objPic.Type = msoPicture Then
objPic.Copy
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "选择保存图片的文件夹"
If .Show = -1 Then
strPath = .SelectedItems(1) & "\"
Else
Exit Sub
End If
End With
With ActiveSheet.ChartObjects.Add(Left:=0, Top:=0, Width:=1, Height:=1).Chart
.Paste
.Export strPath & "Picture" & i & ".png", "PNG"
.Parent.Delete
End With
i = i + 1
End If
Next objPic
MsgBox "导出完成！共导出 " & i-1 & " 张图片。"
End Sub代码说明：遍历当前工作表的所有形状，只处理类型为图片的对象，复制后粘贴到临时图表中，再导出为PNG文件（可修改格式）。运行宏后会弹出文件夹选择框，选好位置后图片会依次保存。
注意：此方法会短暂闪烁，建议备份数据。如果图片是嵌入在单元格中的注释图片，需改用以下方法。
方法二：另存为网页文件（无需代码，适合新手）
Excel自带的“另存为”功能可以快速提取图片。操作步骤：
- 打开包含图片的工作簿，点击“文件” > “另存为”。
- 在“保存类型”中选择“网页（*.htm；*.html）”。
- 选择保存位置，点击“保存”。
- 关闭Excel，找到保存的文件夹，你会看到一个同名的文件夹（带“_files”后缀）。
- 打开该文件夹，所有图片都以独立文件形式存在，格式为PNG、JPEG等。
这种方法简单粗暴，但注意：它会将整个工作簿内容转成网页，包括文字和样式，图片会被提取出来。如果工作表中有大量图片，建议先将想导出的图片复制到新工作表中再操作，避免混淆。
方法三：利用Power Query（仅限Excel 2016+）
Power Query主要用于数据清洗，但也有个隐藏功能：从网页获取数据时可以加载图片。不过此方法需要先将Excel另存为网页，再用Power Query导入，有点鸡肋。更实用的变通方案：将图片所在区域复制到Power BI中处理，但涉及工具切换。因此不推荐作为主要方法。
方法四：使用第三方插件或工具
如果你不想碰代码，又觉得另存为网页步骤多，可以借助专业插件，例如：
- Kutools for Excel：提供“导出图片”功能，支持批量选择、格式设定。
- Ace Excel Extractor：专门用于提取Excel中的图片、公式等资源。
- Python脚本：通过openpyxl库读取Excel并解压图片，适合有编程基础的用户。
以Kutools为例，安装后点击“Kutools Plus” > “Export” > “Export Pictures”，指定范围即可导出。这些插件通常需要付费，但提供试用期。
总结
| 方法 | 难度 | 速度 | 适用场景 |
|---|---|---|---|
| VBA宏 | 中等 | 快 | 需要自定义导出路径、格式 |
| 另存为网页 | 低 | 一般 | 一劳永逸、不需要多次操作 |
| 第三方插件 | 低 | 快 | 愿意付费、追求极致便利 |
根据你的技术水平和需求选择合适的方法。如果只是偶尔一次，推荐另存为网页；如果频繁处理，建议学习VBA宏，一劳永逸。希望本文能帮你告别手动保存图片的繁琐工作！