Excel 2010 VBA 图表数据无法正常工作，出现 438 错误

Question

我正在尝试使用 VBA 更新包含 excel 数据的 powerpoint 图表而不链接到 powerpoint 图表（使用 Excel 2010）。

我一直在尝试使用ChartData，但一直报错

438 Object Doesn't Support Property or Method

（请看下面的测试代码）。它的错误是：

Selection.Chart.ChartData.Activate

.

如果有人知道如何解决此问题或拥有 VBA 代码以使用 excel VBA 2010 更新包含 excel 数据的 Powerpoint 图表而无需链接，请告诉我。

 Sub test3()

 Set pptApp = GetObject(, "PowerPoint.Application")
 Set pptPres = pptApp.activepresentation
 pptPres.Slides(1).Chart("Chart1").Select
 Selection.Chart.ChartData.Activate
 Selection.Chart.ChartData.Workbook. _
        Worksheets("Test Graph Data").Range("B33:I36").Copy
 Selection.Chart.Paste

 End Sub

Answer 1

对于链接数据，尝试...

With pptPres.Slides(1).Shapes("Chart1").Chart.ChartData
    .Activate
    .Workbook.Worksheets("Test Graph Data").Range("B33:I36").Copy
    .Workbook.Close SaveChanges:=False
End With

对于嵌入式工作簿，请尝试...

 pptPres.Slides(1).Shapes("Chart1").Chart.ChartData.Workbook. _
        Worksheets("Test Graph Data").Range("B33:I36").Copy