Excel-VBA兼容性问题

Question

我在Excel仪表板中使用了以下语句：

HeaderTableSheet.ChartObjects("Header_BreakEvenAnalysis").Copy

它每次在Excel-2007上运行都很好，但是在Excel-2010中给出了错误“应用程序定义的或对象定义的错误”(也不是每次都这样)。

我也想不出原因。

有相同的解决方案吗？

Answer 1

在复制图表之前，需要激活工作表(这仅在Excel-2010中是必需的)

因此，以下代码起了作用：

HeaderTableSheet.Activate
HeaderTableSheet.ChartObjects("Header_BreakEvenAnalysis").Copy

Answer 2

你能试试这个吗？

Option Explicit

Sub yourSUB()
Dim myChart As ChartObject

'--- other codes

    For Each myChart In Sheets("SheetName").ChartObjects
      If myChart.Name = "Header_BreakEvenAnalysis" Then
        myChart.Copy 
      End If
    Next myChart

'---other codes
'---release the memory and clean up
Set myChart = Nothing
End Sub