怎样在ExcelVBA中对PPT图表数据源进行操作

bright_xh

怎样在ExcelVBA中对PPT图表数据源进行操作，数据源对应Excel的表格区域，不知道怎样赋值到PPT图表的数据区域(假设表结构一致，如表结构不一致可以用其他方法如offset或循环之类贴过去吗)

TuskAi

你的代码完成度已经很高了，直接设置两个单元格的值相等就可以了

1. Sub test()
   
2.     Dim pptapp As Object
   
3.    
   
4.     Dim pres As Object
   
5.     Dim sld As Object
   
6.     Dim shp As Object
   
7.    
   
8.     Dim pptwb As Workbook
   
9.     Dim rng1 As Range
   
10.     Dim rng2 As Range
    
11.     Set pptapp = CreateObject("powerpoint.application")
    
12.     Set pres = pptapp.activepresentation
    
13.     Set sld = pres.slides(1)
    
14.    
    
15.     Set pptwb = sld.Shapes("PIC_PV").Chart.ChartData.Workbook
    
16.     Set rng1 = pptwb.Worksheets(1).Range("a1:m3")
    
17.     Set rng2 = Worksheets(1).Range("a2:m4")
    
18.     rng1.Value = rng2.Value
    
19.    
    
20. End Sub

复制代码