VBA修改PPT图表数据源

轮回.

Excel中可以用如下语句动态修改图表的数据源：
  ActiveSheet.ChartObjects("Chart 1").Activate
  ActiveChart.SetSourceData Source:=Range("J3:O8")

请问在PPT中的图表，用VBA怎么来动态修改数据源？

轮回.

我自己试了下，如果在PPT中插入Object中的Microsoft Office Excel Chart，可以获取这个对象的Sheet并修改。
但Chart的对象不知道怎么获取
[code=vb]Sub CommandButton1_Click()
    With ActivePresentation.Slides(1)
        Dim i As Integer, j As Integer
        Dim strObjectName
        '获取嵌入对象的名称
        For i = 1 To .Shapes.Count
            If .Shapes(i).Type = msoEmbeddedOLEObject Then
                strObjectName = .Shapes(i).Name
            End If
        Next i
        Dim objShapes As Object ''嵌入的对象
        Dim objChart As Object  ''图表对象
        Dim objSheet As Object  ''Sheet对象
        
        Set objShapes = .Shapes(strObjectName).OLEFormat.Object
        
        objShapes.Worksheets("Sheet1").Cells(1, 7) = "Test"
    End With
End Sub[/code]

莫悠悠

怎么不上传个附件看看？

ning84

1. Sub del()
   
2.    Dim Present As Presentation, Sld As Slide, Shp As PowerPoint.Shape
   
3.    Dim Sht As Worksheet
   
4.    Dim oChart As Chart
   
5.    Dim ObjShp 'As Object
   
6.    Dim Str
   
7.        Set Present = Application.ActivePresentation
   
8.        For Each Sld In Present.Slides
   
9.             
   
10.              For Each Shp In Sld.Shapes
    
11.                   
    
12.                   If Shp.Type = msoEmbeddedOLEObject Then
    
13.                       Debug.Print Shp.Name, Shp.Type
    
14.                      
    
15.                       Str = Shp.Name
    
16.                       Set ObjShp = Sld.Shapes(Shp.Name).OLEFormat.Object
    
17.                       'Set Sht = ObjShp.Worksheets("数据表")
    
18.                       Debug.Print ObjShp.Type
    
19.                       Debug.Print ObjShp.Type = msoEmbeddedOLEObject
    
20.                       Debug.Print Shp.Type = msoEmbeddedOLEObject
    
21.                       Debug.Print ObjShp.Type = msoLinkedOLEObject
    
22.                       Stop
    
23.                       Debug.Print ObjShp.Worksheets("sheet1").Cells(2, 1)
    
24.                       Stop
    
25.                       Stop
    
26.                       Stop
    
27.                   End If
    
28.              Next Shp
    
29.        Next Sld
    
30.       
    
31.        Stop
    
32. End Sub

复制代码

现在关键点掌握，如何获取worksheet的数据。

ning84

1. Sub del()
   
2.    Dim Present As Presentation
   
3.    Dim Sld As Slide, Shp As Shape
   
4.        Set Present = Application.ActivePresentation
   
5.        For Each Sld In Present.Slides
   
6.             For Each Shp In Sld.Shapes
   
7.                  If Shp.Type = msoEmbeddedOLEObject Then
   
8.                        Debug.Print Shp.Application.Name, Shp.Type
   
9.                         Set objShapes = Sld.Shapes(Shp.Name).OLEFormat.Object
   
10.                         objShapes.Worksheets("Sheet1").Cells(1, 1) = 90
    
11. 
    
12.                  End If
    
13.             Next Shp
    
14.        Next Sld
    
15.    
    
16. End Sub
    

复制代码

关键点是要搞清楚
objShapes.Worksheets("Sheet1").Cells(1, 1) = 90
如何定义ObjShapes是什么类型。

ning84

1. Sub del()
   
2.    Dim Present As Presentation
   
3.    Dim Sld As Slide, Shp As Shape
   
4.    Dim xlWk As Workbook
   
5.    Dim Sht As Worksheet
   
6.        Set Present = Application.ActivePresentation
   
7.        For Each Sld In Present.Slides
   
8.             For Each Shp In Sld.Shapes
   
9.                  If Shp.Type = msoEmbeddedOLEObject Then
   
10.                        Debug.Print Shp.Application.Name, Shp.Type
    
11.                         Set xlWk = Sld.Shapes(Shp.Name).OLEFormat.Object
    
12.                         Set Sht = xlWk.Worksheets("Sheet1")
    
13.                         Sht.Cells(1, 1) = 90
    
14.                         Debug.Print Shp.OLEFormat.Object.Application.Name
    
15. 
    
16.                  End If
    
17.             Next Shp
    
18.        Next Sld
    
19.    
    
20. End Sub
    

复制代码

找到了定义的类型，Dim xlWk As Workbook，编程就变得简单了。