可通过vba宏按定义名称批量导出图片：遍历工作簿中所有名称，识别引用图片的名称，提取对应形状并保存为png文件；或用相机工具对已命名区域截图另存；亦可借power query处理图片路径实现批量复制重命名。
如果您在Excel中插入了大量图片，并且每张图片都已通过单元格名称或定义的名称进行命名，但需要将这些图片按名称批量导出为独立文件，则可通过VBA宏或名称映射结合另存为操作实现。以下是具体操作步骤：
一、使用VBA宏按定义名称导出图片
Excel中的图片若被赋予了“定义的名称”（即在公式栏左端名称框中可见的名称），可通过VBA遍历所有名称对象，识别其引用范围是否包含图片形状，进而提取并保存为独立图像文件。该方法无需手动选中，支持全自动批量处理。
1、按 Alt + F11 打开VBA编辑器。
2、在左侧工程资源管理器中右键当前工作簿 → 选择“插入” → “模块”。
3、在新模块窗口中粘贴以下代码：
Sub ExportPicturesByName()
Dim nm As Name
Dim shp As Shape
Dim ws As Worksheet
Dim picPath As String
picPath = ThisWorkbook.Path & "\"
For Each nm In ThisWorkbook.Names
If InStr(nm.RefersTo, "Picture") > 0 Or InStr(nm.RefersTo, "图片") > 0 Then
On Error Resume Next
Set ws = Nothing
Set ws = Worksheets(Split(Split(nm.RefersTo, "!")(0), "'")(1))
If Not ws Is Nothing Then
For Each shp In ws.Shapes
If shp.Name = nm.Name Then
shp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
With CreateObject("WIA.ImageFile")
.LoadImageFromClipboard
.SaveToFile picPath & nm.Name & ".png"
End With
End If
Next
End If
End If
Next
MsgBox "导出完成，图片已保存至：" & picPath
End Sub
4、关闭VBA编辑器，返回Excel界面，按 Alt + F8 调出宏列表，选择 ExportPicturesByName 并点击“运行”。
二、利用相机工具+名称区域截图导出
若图片未被赋予定义名称，但其所在单元格区域已被命名（例如“产品图A”、“LOGO区域”），可借助Excel“相机工具”生成动态快照，再将其复制为图片格式逐个导出。此方法不依赖VBA，适合禁用宏环境。
1、启用相机工具：右键快速访问工具栏 → “自定义快速访问工具栏” → “从下列位置选择命令”下拉选“不在功能区中的命令” → 找到“相机”，点击“添加” → 点击“确定”。
2、选中已命名的单元格区域（如名称为“图1”的区域），点击快速访问栏中的“相机”按钮。
3、在空白处单击，生成一个可缩放的链接图片；右键该图片 → “另存为图片” → 设置文件名与路径，保存为PNG格式。
4、重复步骤2–3，依次对每个已命名区域执行相机截图与另存操作。
三、通过Power Query+图片超链接批量提取
若图片以超链接形式嵌入单元格（例如在A列输入了图片本地路径如“D:\img\abc.jpg”），可利用Power Query读取路径列，再通过外部脚本或批处理调用系统命令复制文件。此法适用于图片本身已独立存在、仅需按名称归类导出的场景。
1、选中含图片路径的列 → 数据选项卡 → “从表格/区域”导入至Power Query编辑器。
2、确保该列为文本类型；右键列标题 → “复制” → 新建记事本，粘贴全部路径。
3、在记事本中将每行路径后追加空格及目标文件名，例如：
D:\img\abc.jpg export_产品A.png
4、保存为 copylist.bat，内容为：
@echo off
for /f "tokens=1,2" %%a in (paths.txt) do copy "%%a" "%%b"
5、另存一份 paths.txt，内容为上一步整理的路径与重命名对；双击运行 copylist.bat 即可批量复制并重命名图片文件。
