求助关于vba ppt

[livelyimp]

        Dim oChart As Chart
        Dim oChartData As ChartData
        Dim gWorkBook As Excel.Workbook
        Dim gWorkSheet As Excel.Worksheet

        ''Chart对象
        Set oChart = ActivePresentation.Slides(1).Shapes(1).Chart
        Set oChartData = oChart.ChartData
        oChartData.Activate
        Set gWorkBook = oChartData.Workbook
        Set gWorkSheet = gWorkBook.Worksheets("Sheet1")

        gWorkSheet.Cells(2, 1).Value = "Product A"
        gWorkSheet.Cells(3, 1).Value = "Product B"
        gWorkSheet.Cells(4, 1).Value = "Product C"
        gWorkSheet.Cells(5, 1).Value = "Product D"
        gWorkSheet.Cells(6, 1).Value = "Product E"
        gWorkSheet.ListObjects("Table1").Resize gWorkSheet.Range("A1:D6") '设置图标数据源区域

        gWorkBook.Application.Quit
        oChart.Refresh

        Set gWorkSheet = Nothing
        Set gWorkBook = Nothing
        Set oChartData = Nothing
        Set oChart = Nothing

求教啊，为啥我的vba连chart类型都没有，而且我的不论是excel里面还是ppt里面的vba，设断点的时候查询
ActivePresentation.Slides(1).Shapes(1).的shape里面都没有Chart属性。这是怎么回事啊？

[dsd999]

刚在ppt里验证过有Chart属性，我的是2007. 注意Shapes(1)是否正确，就是Shapes(1)里是否有Chart。

[livelyimp]

你是用PPTX里面的vba，还是用excel来处理pptx？

[dsd999]

引用 2 楼 livelyimp 的回复:

你是用PPTX里面的vba，还是用excel来处理pptx？

ppt里面的vba。