将图表从excel复制到单词

Question

当我尝试将图表从Excel工作表复制到word文档时，我正面临一个超出范围错误的下标。我检查了工作表名称似乎没问题。我尝试更改为ThisWorkbook.Sheets（wsname），但我收到了应用程序定义类型错误。我该如何解决这个问题。

With ThisWorkbook.Worksheets(wsName)
   .ChartObjects(1).Activate
   ActiveChart.ChartArea.Copy
End With

我正在尝试引用的工作表的名称

Answer 1

我终于找到了问题所在。

由于我引用的是图表而不是工作表，因此我必须使用.Charts而不是.Worksheets。另外由于它是一个图表，因此图表单本身就是一个图表对象，因此.ChartObjects（1）不是必需的，只有.ChartArea.Copy

正确代码：

With ThisWorkbook.Charts(wsName)
  .ChartArea.Copy
End With