将图表从 excel 复制到 word 时下标超出范围

Question

您好，当我尝试将图表从 excel sheet 复制到 Word 文档时，我遇到了下标超出范围的错误。我检查了 worksheet name 似乎没问题。我尝试更改为 ThisWorkbook.Sheets(wsname)，但收到应用程序定义类型错误。我该如何解决这个问题。

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

作品名称sheet我正在尝试参考

Answer 1

我终于知道是什么问题了

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

正确代码：

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

Subscript out of range when copying charts from excel to word