如何将数据从Powerpoint图表复制到Excel

Question

我有几张Powerpoint套牌前3张幻灯片中包含图表。目前，我需要进入每个图表并从这些图表中复制数据并将其粘贴到excel工作簿中。有没有办法使用VBA执行此操作？

Powerpoint图表不会从Excel中提取数据。我看到另一个线程调整了Powerpoint表的数据，但在图表上没有任何内容。此外，我需要将该数据复制并粘贴到Excel中。

Answer 1

2016年访问数据的一种方法是访问系列集。

With ActivePresentation.Slides(2).Shapes
if .name = "Chart1" then
"Sheet1!$B$1" = .Chart.SeriesCollection(1).Values

这适用于幻灯片＃2，图表1和系列1。 您可以使用以下方法在幻灯片上循环显示所有形状：

For Each oSH In ActivePresentation.Slides(2).Shapes

最简单的方法是命名所有需要数据的形状，以便您可以直接关注这些对象。