高保真导出EXCEL文件里的图片

大灰狼1976

有很多方法可以导出EXCEL文件里的图片，但要么失真严重，要么代码繁琐。
直接一点的方法可以用解压缩软件打开工作簿文件获取，用另存html文件也可以实现，得到的图片是高保真的。

EXCEL文件是复合文件类型，可以和操作压缩文件相同的方法获取内容，参考以下代码。

1. 
   
2. <div>Sub exportPic()
   
3. Dim objShell As Object, f As Object, ph 'ph must be Variant
   
4. Set objShell = CreateObject("shell.application")
   
5. ph = ThisWorkbook.Path & ""
   
6. ThisWorkbook.SaveCopyAs ph & "abcd.zip"
   
7. Set f = objShell.Namespace(ph & "abcd.zip\xl\media")
   
8. objShell.Namespace(ph).copyhere f.items
   
9. Kill ph & "abcd.zip"
   
10. End Sub</div>

复制代码

上述代码可将当前工作簿内的图片文件保存到当前路径下。
缺点是无法和文档内的图片名字进行对应。

cidanji

好方法，到压缩包里取

gwjkkkkk

不错，学习了

ykcbf1100

学习一下，谢谢

ykcbf1100

1楼代码感觉只能导出部分图片，象按钮这类图导不出来。
还有一个问题是，导入图片的文件时间都是1980/1/1的。

Excel加速者

方法有很多，导出原图就行

大灰狼1976

ykcbf1100 发表于 2024-3-19 18:41
1楼代码感觉只能导出部分图片，象按钮这类图导不出来。
还有一个问题是，导入图片的文件时间都是1980/1/1 ...

都可以导出，但是activex控件导出的是显示的状态，不是原图，可以做个判断，activex控件可以直接用导出语句的

大灰狼1976

保存zip方法和保存html方法的区别是，zip方法得到的是图片的原始尺寸原始格式，如果进行过裁剪但没有压缩图片的话，会获取到裁剪前的原图；html方法可以得到显示尺寸的图片和原尺寸的图片两份，但不显示被裁剪掉的部分。据说还有文件排列顺序的区别，未深究。

夜是我惶恐的心

能导到指定文件夹吗

大灰狼1976

夜是我惶恐的心 发表于 2024-8-13 09:56
能导到指定文件夹吗

objShell.Namespace(ph).copyhere f.items
把这句的ph换成你想要保存的路径就可以了