在PPT内更改图表的源数据

Question

我正在为工作制作PPT游戏。我要做的一件事是显示图表，以显示不同团队的得分。我想从PPT内的一个表（不是从excel）中获取值，然后将其传递到图表中。稍后，我将添加一个输入函数，以将输入传递到表中，再从该表传递到图表中。

我有一张已经在PPT中创建的表（3 {3，在A1-C1中具有3列标题，在A2:C3中具有随机整数）（已重命名为“ testsource”）。我希望用PPT制作的这张表传递数据/更新同一张幻灯片（“ testchart”中的图表的来源。我试图能够将点添加到testsource表中，以便它随后可以更改图表。

就目前而言，我并不担心获取输入，我只想使表格连接到图表。

稍后，我将添加一个输入函数以获取用户对团队积分的输入（只需将这些值插入表中即可）。

我尝试了几件事，无法将表格加载到图表中

Dim currentSlide As PowerPoint.Slide
Dim pleaseChartTest As PowerPoint.Shape

Set currentSlide = ActivePresentation.Slides(4)
Set pleaseChartTest = currentSlide("testchart")

Dim pleaseChartTest As Shape
Dim datasourceTable As Table
Set datasourceTable = ActivePresentation.Slides(4).Shapes("testsource").Table

Set pleaseChartTest = ActivePresentation.Slides(4).Shapes("testchart").Chart

pleaseChartTest.SetSourceData = datasourceTable.Range("A1:D3")