可通过四种方法批量导出Excel图片:一、“另存为网页”解包获取;二、多选复制后用画图分存;三、运行VBA宏自动导出PNG;四、借助Kutools等第三方插件一键提取。

如果您在Excel工作表中插入了多张图片,但需要将它们单独提取并保存为独立的图像文件,则可以通过内置功能或VBA脚本实现批量导出。以下是几种可行的操作方法:
一、使用“另存为网页”方式提取图片
该方法利用Excel将工作表另存为单个文件网页(.mht)时自动打包所有嵌入对象(包括图片)的特性,再通过解包获取原始图片文件。
1、点击【文件】→【另存为】,在保存类型中选择单个文件网页(*.mht)。
2、指定保存路径并点击【保存】,Excel会生成一个.mht文件及同名文件夹(如“工作簿名_files”)。
3、打开该文件夹,其中包含所有嵌入的图片资源,文件名通常为“image001.png”、“image002.jpg”等格式。
4、将所需图片复制到目标位置,并根据需要重命名。
二、通过剪贴板批量复制图片并粘贴为文件
此方法适用于图片数量不多且排列较规整的情况,利用Excel支持多选图片后统一复制的特性,配合画图工具或图像编辑软件完成导出。
1、按住Ctrl键,依次单击工作表中所有需导出的图片以进行多选。
2、右键选中区域,选择复制(或按Ctrl + C)。
3、打开Windows自带的画图程序,按Ctrl + V粘贴,此时所有图片将以合并形式出现。
4、使用画图的【选择】工具框选单张图片,按Ctrl + X剪切,新建空白画布后按Ctrl + V粘贴,再执行【文件】→【另存为】保存为PNG或JPEG格式。
三、运行VBA宏自动导出所有图片
该方法可一次性遍历当前工作表全部图片对象,并按顺序导出为独立图像文件,支持自定义保存路径与文件名前缀。
1、按Alt + F11打开VBA编辑器,插入新模块:点击【插入】→【模块】。
2、将以下代码粘贴至模块窗口中:
Sub ExportAllPictures()
Dim sPath As String, i As Integer
sPath = ThisWorkbook.Path & "\ExportedPics\"
MkDir sPath
For i = 1 To ActiveSheet.Pictures.Count
ActiveSheet.Pictures(i).CopyPicture Appearance:=xlScreen, Format:=xlBitmap
With CreateObject("WIA.ImageFile")
.LoadImageFromClipboard
.SaveToFile sPath & "Pic_" & Format(i, "000") & ".png"
End With
Next i
MsgBox "共导出" & ActiveSheet.Pictures.Count & "张图片,已保存至:" & sPath
End Sub
3、关闭VBA编辑器,返回Excel界面,按Alt + F8调出宏列表,选择ExportAllPictures并点击【运行】。
4、检查当前工作簿所在文件夹下是否生成“ExportedPics”子目录,并确认其中存在编号PNG文件。
四、使用第三方插件辅助导出
部分Excel增强型插件(如Kutools for Excel)提供“提取图片”功能,可绕过复杂操作直接批量导出,适合不熟悉VBA或网页打包机制的用户。
1、安装并启用Kutools for Excel插件(需官网下载并授权)。
2、在Excel功能区找到【Kutools】选项卡,点击【图片】→【从工作表中提取图片】。
3、在弹出窗口中勾选目标工作表,设置保存路径和图片格式(PNG/JPEG),点击【确定】。
4、插件自动扫描并导出所有图片,完成后提示成功信息及导出数量。










