将图表从Excel复制到Word时下标超出范围

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