用chat.export方法不能另存图片office2003

andy.pan

问题rt
运行环境：win2003s+office2003
下了帖子http://www.excelpx.com/thread-198048-1-1.html中的附件，保存图片时，没有任何错误提示，但是没有图片文件生成。

同样文件，在office2013环境下，可以正常生成图片文件。


另外，使用如下代码时，执行到 .Export ThisWorkbook.Path & "\" & i & ".jpg" ，会报错：“运行时错误 1004：应用程序定义或对象定义错误。”，运行环境同样式win2003s+office2003

Sub dd()
Dim shap As Shape
Dim i As Integer
    With ActiveSheet
        For i = 1 To .Shapes.Count
            Set shap = .Shapes(i)
            shap.CopyPicture Appearance:=xlScreen, Format:=xlPicture
        With .ChartObjects.Add(0, 0, shap.Width, shap.Height).Chart
            .Paste
            .Export ThisWorkbook.Path & "\" & i & ".jpg"
            .Parent.Delete
        End With
        Next
    End With
End Sub