如何能批量导出excel内表格图片并命名？？

Excel表格里面批量提取图片并且按货号重命名~

第一步、准备好对应的图片，名片的命名和Excel中要对应的名称相同。

第二步、将内容列进行复制，并且调出剪切板。

第三步、把名称进行汇总，把复制的名称放到一个单元格中，例子中，放在了E2单元格中。然后用Ctrl+H，使用替换功能。

第四步、为什么要使用替换功能呢，因为Excel导入图片，如果要批量的话，名称之间必须有“;”进行间隔开，要做的就是加入“;”，在查找内容里，输入Ctrl+J或者Ctrl+Enter，表示，要替换的是回车符，而替换为“;”。

第五步、点击“替换”以后，就会出现加了分隔符的信息了，把这些信息复制一下。

第六步、复制信息，推荐都把剪切板调出来，剪切板对于新人来说，是比较有用的一个功能。

第七步、开始插入图片，通过工具栏中的插入功能，进行图片的插入，找到准备好的图片素材所在路径，然后把复制的信息，粘贴到文件夹名中。

第八步、图片插入后，通过工具栏中的“编辑”，选择“定位”，然后选择“定位条件”。

第九步、在定位条件中，选择“对象”，因为图片是以对象的形式插入的，这样就可以选中所有的图片。

第十步、然后右键，选择设置图片格式。

第十一步、根据自己的需要设置图片的样式，这里想把图片缩小，然后能够放到单元格中。

第十二步、图片都是按照前后顺序从高到低排列的，都是对应表格中的排列顺序。然后把图片移动到对应的表格中。

在这个文件夹中调用
cmd
键入：dir
*.xls
>tttt.txt
回车就可以得到该文件夹xls文件的列表
打开tt.txt文件，copy到excel中，分列就可以得到纯文件名列表……
不过，把几百张表中的数据集中到一个表中，不但可行，而且非常必要，这至少符合数据管理的原则，也有利于数据的再利用，想想吧

以WPS 2019版本为例：

打开文档，找到任意一张图片，单击选中该图片，鼠标右键单击【提取图片】，

弹出此对话框，会告知您文档中有多少张图片及可设置输出路径，设置好后，单击【开始提取】，提取成功文档中的图片会自动生成文件夹进行保存、

目前不支持批量修改图片名称功能，若需要修改名称，可导出图片后，进入文件夹中手动修改哦。

查了一下， 应当是可以实现的。
提供一个思路
是用VBA枚举所有的的SHAPES对象，并复制到剪贴板上，
然后保存到文件中。

可能要花蛮多时间理一下代码。如果LZ有人 VBA熟悉， 应当可能完成的。

参考下：

http://en.allexperts.com/q/Excel-1059/2008/10/Excel-Picture-VBA.htm

http://www.mrexcel.com/forum/showthread.php?t=100737&page=5&highlight=showpicd

批量命名不知道快捷的方法，用宏吧

宏使用方法：
1.Alt+F11进入VBE
2.菜单 插入-模块
3.复制以下代码到光标处
4.Alt+F11回到Excel,Alt+F8,选择ReNamePic执行。

Sub ReNamePic()
Dim Sht As Worksheet
Dim Pic As Shape
On Error Resume Next
For Each Sht In Sheets
For Each Pic In Sht.Shapes
If Pic.Type = msoPicture Then
Pic.Name = Pic.TopLeftCell.Offset(0, 1).Text
End If
Next
Next
End Sub

批量导出比较容易，将工作簿另存为 网页（*.htm;*html）然后到保存路径下找同名的文件夹，文件夹内就是所有的图片了。

---

如何能批量导出excel内表格图片并命名？？视频