How to modify Powerpoint Chart ChartData by Excel VBA
我正在尝试使用Excel-VBA修改Powerpoint中的ChartData(值)。
ChartData未链接到其他Excel工作簿。
检查:
-PowerPoint已打开
-必需的演示文稿已打开
-图表位于幻灯片4
上
行为:
-图表标题更改
-带有ChartData的工作簿打开
-运行时错误\\'424 \\':需要Objeckt
-调试标记以下行:
1 | Chart.ChartData.Workbook.Worksheets("Tabelle1").Range("B2:B5").Value = 50 |
希望有人可以帮助我...:-)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | Sub ModifyChartData() Dim pptApp As Object Dim pptPres As Presentation Set pptApp = GetObject(,"PowerPoint.Application") Set pptPres = pptApp.ActivePresentation pptPres.Slides(4).Shapes("Diagramm1").Chart.ChartTitle.Text ="Sales Overview" pptPres.Slides(4).Shapes("Diagramm1").Chart.ChartData.Activate Chart.ChartData.Workbook.Worksheets("Tabelle1").Range("B2:B5").Value = 50 Workbooks.Close End Sub |
示例:
代码:
1 2 3 4 5 | Set pptApp = GetObject(,"PowerPoint.Application") Set pptPres = pptApp.ActivePresentation pptPres.Slides(1).Shapes(1).Chart.ChartTitle.Text ="Sales Overview" pptPres.Slides(1).Shapes(1).Chart.ChartData.Activate pptPres.Slides(1).Shapes(1).Chart.ChartData.Workbook.Worksheets("Blad1").Range("B2:B5").Value = 50 |
结果: