VBA导出的图片和原始图片不一致

dmxjMao

我的Excel有一张png图片，属性是：Width*Height = 225*160像素，Bit depth = 8位，然后我参照论坛里的VBA代码（Chart.Export那一套），图片导出了，但是属性是：Width*Height = 300*214像素，Bit depth = 32位！我想可能问题出在下面几个地方：
1，Shape对象存储图片时，属性已经变化了
2，Shape.CopyPicture
复制到系统剪贴板的时候，Shape属性发生变化
3，Chart.Paste
粘贴到Chart控件时，属性发生变化，不知道剪贴板如何控制粘贴格式的，比如Bit depth设为8位是不是就好了
4，Chart.Export
导出的时候，属性发生变化

请问有什么办法可以做到导出的图片和原始属性一模一样呢？

小花鹿

另存为网页                                                                                                               

joforn

直接提取复制原文件。

小fisher

用winRAR等解压缩软件打开*.xlsx工作簿文件，可以在\xl\media里看到插入到工作簿中的.png文件，所以问题不是出在第1步，而是出在copyPicture这一步，copyPicture以后再查看剪贴板，其中的格式已经变了。
要手动提取.png文件，用我上面说的解压缩软件的方法就可以，如果编程解决，需要按zip格式先解析*.xlsx文件，取得压缩后的字节段的起始位置和长度以及压缩前的长度，提取到byte数组中，然后用API函数解压缩

dmxjMao

小fisher 发表于 2018-8-2 10:30
用winRAR等解压缩软件打开*.xlsx工作簿文件，可以在\xl\media里看到插入到工作簿中的.png文件，所以问题不 ...

“copyPicture以后再查看剪贴板，其中的格式已经变了”，如果你确认过的话，我觉得大概就是这个原因了。你说的zip编程这个就麻烦了，一般舍弃。
后来我找到了VBA的Shape.ScaleHeight和ScaleWidth解决了宽高问题，找到了Shape.PictureFormat.ColorType = msoPictureGrayscale这个能使Bit depth是8位，但图片用Beyond Compare还是有一些差异，不过 225*160 Bit depth 32 和 225*160 Bit depth 8 用Beyond Compare可以近似相等，这对于批量比较能凑合通过。
其实我是在Python中用的这些VBA，所以如果像你所说的“剪贴板格式变化”，那Python或VBA是不是可以改粘贴格式呢（假如有Bit depth属性的话）？

dmxjMao

小花鹿 发表于 2018-8-2 09:53
另存为网页                                                                                           ...

我只要和原文件一模一样的png图片。

dmxjMao

joforn 发表于 2018-8-2 09:58
直接提取复制原文件。

具体点吧。

小花鹿

dmxjMao 发表于 2018-8-2 19:58
我只要和原文件一模一样的png图片。

另存为网页，里面就有图片文件，和原来的图片是一样的