如何通过Excel VBA修改Powerpoint Chart ChartData

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

示例:

enter image description here

代码:

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

结果:

enter image description here