PPT图表怎么用VBA控制修改数据源

fieldset{padding:10px;}

PPT图表如何用VBA控制修改数据源？Excel中可以用如下语句动态修改图表的数据源： ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.SetSourceData Source:=Range("J3:O8")请问在PPT中的图表，用VBA怎么来动态修改数据源？我做了一个例子，可以获取图表后台的Sheet对象，但图表的对象无法获取。VB code

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 WithEnd Sub

——解决方案——————————————————–不用图表后台的Sheet对象，直接改Series的值：ActivePresentation.Slides(2).Shapes(1).Chart.ChartType = xl3DPieActivePresentation.Slides(2).Shapes(1).Chart.SeriesCollection(1).Values = Array(99, 2)——解决方案——————————————————–解决了记得分享下。人的价值，在遭受诱-惑的一瞬间被决定

相关文章：

你感兴趣的文章：

标签云：