图片导出问题

爱到天涯

爱到天涯 发表于 2012-2-9 10:08
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Fill.Visible = msoFalse
            ...

我也明白为什么香川的代码不起作用。ChartArea 对象成员里面没有找到，。Border属性。

香川群子

楼主已经被我说得知难而退了，你们两个人还在这里玩得不亦乐乎？

香川群子

楼主已经被我说得知难而退了，你们两个人还在这里玩得不亦乐乎？

EJR

EJR 发表于 2012-2-9 07:47
是的。我已经放弃这种方法了，另用其它方法取得了满意的效果！

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

liucqa

Chart.export导出图片-2010下正常.rar (63.62 KB, 下载次数: 11)

2012-2-10 11:21 上传

点击文件名下载附件

Sub 导出图片()
    Dim Shp As Shape
    Dim FileName As String
    For Each Shp In ActiveSheet.Shapes
        If Shp.Type = msoPicture Then
            Shp.Copy
            With ActiveSheet.ChartObjects.Add(0, 0, Shp.Width, Shp.Height).Chart
                .ChartArea.Border.LineStyle = xlLineStyleNone              '0    '去掉边框
               
                .Paste
                FileName = ThisWorkbook.Path & "\" & Shp.Name & ".gif"
                .Export FileName, "gif"
                '.Parent.Delete
            End With
            ActiveSheet.Shapes.AddPicture FileName, msoTrue, msoCTrue, 300, 50, Shp.Width, Shp.Height
        End If
    Next
End Sub

经测试在2010下，用export导出图片大小一样，没有变化。如果不加红色语句，会多1个像素。

香川群子

liucqa 发表于 2012-2-10 11:23
Sub 导出图片()
    Dim Shp As Shape
    Dim FileName As String

呵呵，那么你的结论：

在2010中，也还是需要
.ChartArea.Border.LineStyle = xlLineStyleNone
这一句代码，才能起作用。

EJR

又发现了问题：1000行之内的能导出，30000行之外的导不出来！不知是怎么回来，有请各位研究解决!见附件《图片G》。

liucqa

你F8单步跟踪看看执行情况，我这边没问题

香川群子

楼主，我又要对你说： 趁早回头，你又撞墙啦。


Excel 不是神仙，也是有能力限界的。


对于图片，它的定位能力是：
图片下边缘位置，不能超过11866行。
（我估计是因为VBA中图片行位置引用数值类型的限制。超过了就不行了）

对列数256列没有影响。


…………

所以，楼主希望导出的图片，必须让这些图片的下边缘位置，都在11866行以上才行。

EJR

香川群子 发表于 2012-2-13 13:22
楼主，我又要对你说： 趁早回头，你又撞墙啦。

在E2007下运行4个的实验时可以正常导出，但我实际是2万多图片需要导出，就慢的惊人了，我等了5分钟，刚导出3张图片，我把2003格式另存为2007格式也一样！

这个怎么办？