如何能批量导出excel内表格图片并命名??
发布网友
共3个回答
热心网友
以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）然后到保存路径下找同名的文件夹，文件夹内就是所有的图片了。
