Vba 在未链接的PowerPoint图表中填充数据

我希望在演示文稿中填充图表。我通常为我的演示文稿创建“Shell Deck”，从上一个演示文稿中剥离数据（手动），然后进入excel文件，查找需要粘贴的值，然后将其粘贴到图形中。我手动为每个图形执行此操作。这一切似乎很容易在VBA中完成，在编辑图表中的数据之前，我拥有代码的每一部分。我想不出来

这是我将图表中的第一个条形图设为7.5的最佳尝试，这很可笑：

Shapes.Chart.SeriesCollection（1）.值（1）=7.5

能帮我弄清楚我需要做什么吗

另外，我不能在excel中创建图表然后粘贴到PowerPoint中，我必须编辑已经存在的图表

---

谢谢

这是一个工作表对象，用于在powerpoint中将数据提供给图表

 Application.ActivePresentation.Slides(1).Shapes(1).Chart.ChartData.Workbook.activesheet

---

因此，您应该能够将excel中的一系列内容复制到powerpoint中

Hey reach@jsotola！谢谢你的回复！我试着用它工作，但由于某种原因，我无法以这种方式更改值。我能够使它工作的唯一方法是打开ChartData并编辑图表后面的excel文件，如下所示：

With shpe.chart.ChartData.Activate.Workbook.Sheets（1.Range）（“B12:B15”）.Value=7.5.Workbook.Close结束时使用

你知道你建议的方法是否可以在不打开后面的excel文件的情况下完成吗？省去

。激活

和

工作簿。关闭

这很好！但是我的意思是像

Shapes.Chart.SeriesCollection（1）Point（1）=7.5

或者像我在原始问题中的那样？当你手工编辑它时，你必须按照你说的做，然后编辑excel表来更新值。。。我的想法是相反的。我认为VBA可以告诉图形它想要每个条的数字（因为我们可以在不打开“编辑数据”的情况下找到图表的值，我们可以选择每个条并更改其属性，那么为什么不在不打开“编辑数据”的情况下也更改值呢？）。因此，从本质上讲，这将取代Excel告诉PowerPoint如何处理图形，我希望PowerPoint告诉Excel如何处理它的工作表。手动或通过VBA进行“编辑数据”是我能看到的唯一方式。你说的是多少酒吧。。。。。也许您可以使用带滑块的窗体来操作值。图表中有多少条？每个图表都有不同的数值，具体取决于数据

 Application.ActivePresentation.Slides(1).Shapes(1).Chart.ChartData.Workbook.activesheet