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

Excel怎么批量提取图片 Excel快速导出表格所有图片方法【技巧】  第1张

如果您在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、插件自动扫描并导出所有图片,完成后提示成功信息及导出数量。