图片导出问题

EJR

liucqa 发表于 2012-2-6 23:30
Sub 从Excel工作表导出图片()
    Dim Shp As Shape
    Dim FileName As String

你可以考虑换用剪贴板API来复制图片到文件-- 这个也太吓人了啊！

虽然没有解决！但我非常感谢您！

liucqa

EJR 发表于 2012-2-6 23:40
你可以考虑换用剪贴板API来复制图片到文件-- 这个也太吓人了啊！

虽然没有解决！但我非常感谢您！

看30楼，最终结果。

liucqa

似乎是导出时加的白边

我觉得excel插入图片加白边的问题似乎没法解决，图片裁剪精确到0.1cm，没法裁剪1个像素

EJR

liucqa 发表于 2012-2-7 00:19
看30楼，最终结果。

太复杂的，不实用的。

EJR

EJR 发表于 2012-2-7 07:59
太复杂的，不实用的。

17楼没有解决问题的。

香川群子

EJR 发表于 2012-2-7 15:17
17楼没有解决问题的。

请楼主上附件，加入几张你要导出的测试图片。

EJR

香川群子 发表于 2012-2-7 17:16
请楼主上附件，加入几张你要导出的测试图片。

附件里有啊！三张呢

liucqa

EJR 发表于 2012-2-8 10:56
附件里有啊！三张呢

                                                  

liucqa

香川群子 发表于 2012-2-7 17:16
请楼主上附件，加入几张你要导出的测试图片。

导出图片-再插入会多一个像素的白框.rar (66.57 KB, 下载次数: 14)

2012-2-8 11:19 上传

点击文件名下载附件

用这个会发现导出的像素从96变成98

香川群子

EJR 发表于 2012-2-7 15:17
17楼没有解决问题的。

呵呵。

导出图片不要边框问题，应该已经解决了。


楼主现在的问题，应该称为：

把图片一会儿导出去，一会儿导进来……这样图片就会产生重复边框，直至变形得无法使用。



…………

问题是看到了，但是无法理解楼主这样做，有什么实用价值。

如果只是研究一下，那么到此为止就OK啦。


如果你就是喜欢这样做，那么，抱歉我帮不了你，也不想和傻瓜打交道。