通过 VBA 脚本编辑 Powerpoint 图表数据

Question

我有一个 PowerPoint 演示文稿，其中包含一个图表，其中包含 Excel 表格中的数据。

我想通过 powerpoint VBA 编辑器编辑此数据..

我该怎么做？我找不到访问 Excel 表数据的方法。

问候

Answer 1

此代码允许您访问嵌入到 PowerPoint 演示文稿中的 Excel 工作表。

Sub a()

Dim oSl As PowerPoint.Slide
Dim oSh As PowerPoint.Shape

Set oSl = ActivePresentation.Slides(1)

Set oSh = oSl.Shapes(1)

With oSh.OLEFormat.Object.Sheets(1)
    .Range("A1").Value = .Range("A1").Value + 1
    .Range("A2").Value = .Range("A2").Value - 1
End With

Set oSl = Nothing
Set oSh = Nothing

End Sub  

如果图表链接到您修改的数据，它可能会自动更新。如果不是，强制重新计算。

哈！

编辑

通过以下更改，它可以在 Office 2007 中运行：

With oSh.OLEFormat.Object.WorkSheets(1)
    .Range("A1").Value = .Range("A1").Value + 1
    .Range("A2").Value = .Range("A2").Value - 1
End With