运行时错误'438'

Question

我知道有几个关于此运行时错误'438'的帖子，但我仍然无法弄清楚如何解决这个问题。这是我的整个代码：https://pastebin.com/S6LigcWz但有问题的部分是：

With c.ChartData
    .Activate
    .Workbooks.Sheets(1).UsedRange.Clear
    .Workbooks.Sheets(1).Range(A2).Select
    .Selection.PasteSpecial xlPasteValues
    .Workbooks.Close
End With                

此代码以ppt开头，然后进入excel并复制一个范围，然后“尝试”粘贴到ppt中的图表中。这是代码的一部分，它试图粘贴到图表中，以及发生错误的部分。它在.Workbooks.Sheets(1).UsedRange.Clear

上出错

感谢任何帮助。

Answer 1

我会在Workbooks的开头留点，因为ChartData没有Workbooks成员