excel - 对象范围的方法复制图片失败

Question

我在使用 Excel 宏时遇到问题，该宏复制单元格范围并将它们作为图片存储在共享驱动器上。问题开始了，我不知道什么时候，但它工作得很好，突然它不会复制范围。

整个过程是这样的。我有 C# 中的应用程序，它打开两个 Excel 并运行三个宏。这工作正常，但最后一个宏开始显示错误。

代码如下:

Sub red_current_status()
    Dim sSheetName As String
    Dim oRangeToCopy As Range
    Dim oCht As Chart
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    Application.WindowState = xlMaximized

    Worksheets("Charts").Range("A1:E15").CopyPicture xlScreen, xlBitmap
    Set oCht = Charts.Add

    With oCht
        .Paste
        .Export Filename:="X:\path\image.gif", Filtername:="GIF"
    End With
End Sub

显示错误:

"Method CopyPicture of object Range Failed"

我尝试和谷歌搜索的内容:

• 由于释放内存而添加 cutcopymode false
• 添加 screenupdating true，因为最后一个 excel 设置为 false
• 将窗口状态添加到最大化

任何帮助将不胜感激。

Answer 1

如果您不指定工作簿，它将采用ActiveWorkbook。工作表也是如此 - 如果您不指定它，它将采用 ActiveSheet。因此使用以下内容:

ThisWorkbook.Worksheets(1).Range("A1:E15").CopyPicture 1,2