图片导出问题

香川群子 · 发表于 2012-2-8 18:54

实际上，导出图片时不要边框是做不到的。

我17楼代码，仅仅是不让边框显示颜色而已。

…………

真正的问题是，每次导出图片以后，实际像素都会变差，多操作几次，图像分辨率就不对了。

香川群子 · 发表于 2012-2-8 18:58

所以，楼主还是彻底放弃反复导出、导入相同图片的愚蠢想法吧。

如果别人Excel文件中的图片对你有用，那么导出一次，然后保存在图库中，以后随时调用就OK啦。

…………

这样做，A图片就只经过1次导出变成B图片，再次使用时导入B图片1次，最终变成图片C。

以后还要导入的话，也就都是导入图片B成为图片C，不会再有更多的改变啦。

香川群子 · 发表于 2012-2-8 19:00

至于反复导入、导出图片，还想要保持原状，那是不可能的。

只有进行图片的二进制操作，才可能保持永远不变。

一般Excel操作，是做不到的。

EJR · 发表于 2012-2-8 21:57

香川群子发表于 2012-2-8 18:11
呵呵。

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

呵呵！执着＝傻瓜

liucqa · 发表于 2012-2-8 23:22

我觉得VBA不是万能的，也许一个好的流程或者一个好的思路，可以解决代码不能解决的问题

EJR · 发表于 2012-2-9 07:47

本帖最后由 EJR 于 2012-2-9 20:37 编辑

liucqa 发表于 2012-2-8 23:22
我觉得VBA不是万能的，也许一个好的流程或者一个好的思路，可以解决代码不能解决的问题

是的。我已经放弃这种方法了，另用其它方法取得了满意的效果！

呵呵！知难而退也不是坏事！
我觉得这么多大师讨论不出结果，就没有希望了。不用代码，用手工！很精确！呵呵！反正图片不是很多！

爱到天涯 · 发表于 2012-2-9 07:58

本帖最后由爱到天涯于 2012-2-9 08:07 编辑

Sub 从Excel工作表导出图片() Dim Shp As Shape
Dim chrobj As ChartObject
Dim FileName As String
For Each Shp In Sheet1.Shapes
If Shp.Type = msoPicture Then
FileName = ThisWorkbook.Path & "" & Shp.Name & ".gif"
Shp.CopyPicture xlPrinter
Set chrobj = Sheet1.ChartObjects.Add(0, 0, Shp.Width, Shp.Height) '注意度量单位
With chrobj.Chart
.Paste
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Fill.Visible = msoFalse
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Line.Visible = msoFalse
.Export FileName, "gif", True
.Parent.Delete
End With
End If
Next
End Sub

复制代码

已经没有边框了。刚才仔细看了下录制宏，粘贴CHART为对象的时候，大家请注意，新建的CHART对象，默认的边框为1像素，所以要把他清零。呵呵、、、、、香川群子老师是对的，只是代码写错了，也不怪他，MS搞的很奇怪，要shape对象来控制CHART对象的边框。
这个问题解决办法很多，API,甚至FSO，都行。

爱到天涯 · 发表于 2012-2-9 08:13

花了我半小时，给个鲜花吧。

liucqa · 发表于 2012-2-9 08:59

本帖最后由 liucqa 于 2012-2-9 09:00 编辑

爱到天涯发表于 2012-2-9 08:13
花了我半小时，给个鲜花吧。

不对呀，还是有框。另外你的代码在2007下好像不能用

你在我39楼的代码上，改个附件出来，看看运行后出来的图片是不是有边框

liucqa · 发表于 2012-2-9 09:06

本帖最后由 liucqa 于 2012-2-9 09:12 编辑

确认一点，图片在插入Excel之后，就被加上1个像素的边框。

把39楼里面的卫斯理图片（96像素），插入Excel，复制、粘贴到ps，会看到边框，变成98像素

		自动登录	找回密码
密码			免费注册

[求助] 图片导出问题

点评

点评

评分