图片导出问题

香川群子

爱到天涯 发表于 2012-2-9 07:58
已经没有边框了。刚才仔细看了下录制宏，粘贴CHART为对象的时候，大家请注意，新建的CHART对象，默认的边框 ...

你的代码自己测试过了么？

请上附件。


我试用你的代码，连边框都没有去掉啊。

liucqa

同志们，仔细看运行add之后插入的图片，会发现插入到chart里面的时候，就已经带白边了

爱到天涯

请看哦，随便怎么都没边框。

爱到天涯

忘记说了，我是OFFICE2010，如若不信，请2010测试，我等会安装03试试、

爱到天涯

这个图没变啊。怎么的呢？
我是WIN7+OFFICE2010

爱到天涯

爱到天涯 发表于 2012-2-9 09:16
请看哦，随便怎么都没边框。

没边，我确定。

liucqa

注意看，你的图片是96×96，运行之后变98×98

爱到天涯

OH,我这边一直都是96，没变化。OFFICE版本问题吗？

liucqa

Sub 导出图片直接剪贴板()
    Dim Shp As Shape
    Dim FileName As String
    'Shp.CopyPicture xlPrinter
    With ActiveSheet.ChartObjects.Add(0, 0, 72, 72).Chart
        .ChartArea.Border.LineStyle = 0    '去掉边框
        .Paste
        FileName = ThisWorkbook.Path & "\" & "剪贴板.gif"
        .Export FileName, "gif"
        '.Parent.Delete
    End With
    ActiveSheet.Shapes.AddPicture FileName, msoTrue, msoCTrue, 300, 50, 72, 72
End Sub



1、先在画图里面复制卫斯理的图片，可以在ps新建验证图片是96像素。
2、复制到剪贴板之后，运行上面的程序

奇怪的是运行paste的时候，会发现图片没有边框，而再次插入的图片就多出来边框了。
另一点是，从chart手工复制图片，到ps里面验证也是有边框的（变成98像素）

所以，我现在不明白，到底是复制命令搞出来的边框？还是插入搞出来的边框呢？或者粘贴时候就出来边框了只是我肉眼没看出来？！

爱到天涯

liucqa 发表于 2012-2-9 10:06
Sub 导出图片直接剪贴板()
    Dim Shp As Shape
    Dim FileName As String

                 ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Fill.Visible = msoFalse
                 ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Line.Visible = msoFalse
你不加这2句话，当然要变化。