Charts 在PowerPoint中创建简单图表不起作用

我有以下问题，无法使用PowerPoint创建简单图表：

Sub CreateChart()
Dim myChart As Chart
Dim gChartData As ChartData
Dim gWorkBook As Excel.Workbook
Dim gWorkSheet As Excel.Worksheet

' Create the chart and set a reference to the chart data.
Set myChart = ActivePresentation.Slides(1).Shapes.AddChart.Chart
Set gChartData = myChart.ChartData

' Set the Workbook and Worksheet references.
Set gWorkBook = gChartData.Workbook
Set gWorkSheet = gWorkBook.Worksheets(1)

行内设置myChart=ActivePresentation.Slides（1）等。以下错误： 运行时错误“429”：ActiveX组件无法创建对象

行内设置gChartData=myChart。如果我按CtrL+space，我看不到参数ChartData，只看到ChartArea

有些东西不能正常工作。我的参考资料如下： Visual Basic For Applications Microsoft Excel 14.0对象库 OLE自动化 MicrosoftOffice14.0对象库 Microsoft PowerPoint 14.0对象库 微软订阅源 Microsoft Forms 2.0对象库

该代码是从microsoft网站复制的：

我怎么可能使用微软的一些代码，但它不工作。。。？非常令人沮丧

---

关于

，我也在.ChartData:Compile error:method或data member的行中找到了。我缺少任何参考资料？您的示例代码在PPT 2010（即14.0）中可以使用。您是否尝试过修复您的办公室安装（即通过控制面板）？谢谢您的回答。不，我没有，对不起，你说修理是什么意思？你需要我重新安装office吗？这将是一个问题，因为来自IT的人需要花时间，而这需要我们花钱。有什么办法可以解决这个问题吗？我怎么可能只是从microsoft复制粘贴代码，但它不起作用？>>我怎么可能只是从microsoft复制粘贴代码，但它不起作用？首先，他们的一些示例代码是垃圾代码。如果office安装出现问题，即使是好的代码也可能失败。因此，转到“控制面板|程序和功能”，选择Microsoft Office并选择“更改”，然后执行修复步骤。我也在.ChartData:编译错误：找不到方法或数据成员。我缺少任何参考资料？您的示例代码在PPT 2010（即14.0）中可以使用。您是否尝试过修复您的办公室安装（即通过控制面板）？谢谢您的回答。不，我没有，对不起，你说修理是什么意思？你需要我重新安装office吗？这将是一个问题，因为来自IT的人需要花时间，而这需要我们花钱。有什么办法可以解决这个问题吗？我怎么可能只是从microsoft复制粘贴代码，但它不起作用？>>我怎么可能只是从microsoft复制粘贴代码，但它不起作用？首先，他们的一些示例代码是垃圾代码。如果office安装出现问题，即使是好的代码也可能失败。因此，转到控制面板|程序和功能，选择Microsoft Office并选择更改，然后执行修复步骤。