求助：VBA批量无损导出图片，找遍全网也没找到答案

ii_snow

perfect131 发表于 2023-3-23 11:51
可以的
https://club.excelhome.net/thread-1648005-1-1.html
你这个有点不同，有组合，还需要utf8读取 ...

谢谢提供的思路，我回去研究一下，要是能解决一定回来反馈！

perfect131

ivccav 发表于 2023-3-23 14:17
不是要图片在Excel的shape.name名称，而是要能指定图片名称进行导出，即根据图片左上角或者右下角单元格 ...

zip 方式 不适合 xls ,也不适合 切割的图片，htm 还可以（可以能指定图片名称进行导出） ，比起 API，ChartObjects 高清

smsn

文件全部另存为 xlsx （.zip），解压里面的media文件夹下图片，不是最方便吗？

opiona

我的思路是  在Excel将图片放大 然后导出  质量提升不少

ii_snow

opiona 发表于 2023-3-23 20:21
我的思路是  在Excel将图片放大 然后导出  质量提升不少

这个我最早就试过了，我们有很多不同客户发来的文件，文件中的图片什么格式都有，这种放大的方法，受文件格式（JPG或者PNG）限制，来源图片右键另存为时有PNG或JPG状态，而export只给定一种，当来源为PNG，存为JPG就会非常失真，反过来亦然。

ii_snow

smsn 发表于 2023-3-23 19:55
文件全部另存为 xlsx （.zip），解压里面的media文件夹下图片，不是最方便吗？

你说的方法不符合我们的使用场景

ii_snow

约定的童话 发表于 2023-3-23 07:22
Sub BatchExportPictures()
    Dim path As String
    Dim folder As Object

我才看到这种回答，感谢，我去试试！

ii_snow

约定的童话 发表于 2023-3-23 07:22
Sub BatchExportPictures()
    Dim path As String
    Dim folder As Object

不好意思，试了报错呢，我仔细看了没太看明白，这个是先把图片文件导入吗？为什么for each file in folder.files?

ivccav

perfect131 发表于 2023-3-23 17:45
zip 方式 不适合 xls ,也不适合 切割的图片，htm 还可以（可以能指定图片名称进行导出） ，比起 API，Cha ...

是的，压缩格式不适用于Excel2003，但用这个版本的应该不多了。
另存为htm不适合于WPS，而用WPS的用户群挺大的。各有优缺点吧

wanghan519

更新了前几天发的，带位置信息从xlsx解压图片的小工具，需要下载7楼更新后的
解压出来的文件名是第几个sheet-图片左上角在第几行-图片左上角在第几列
如果有xls可以用脚本批量另存为xlsx


https://club.excelhome.net/thread-1640323-1-1.html