从Excel VBA编辑嵌入式PowerPoint

我在Excel工作簿中嵌入了PowerPoint演示文稿。如何使用VBA编辑此内容（打开、复制幻灯片、向幻灯片添加数据、关闭）？

1。将对PowerPoint对象模型的引用添加到VBA应用程序中

从VBA窗口中，选择工具参考 查找Microsoft Powerpoint 12.0对象库并进行检查

2。选择并激活PowerPoint演示文稿对象

ActiveSheet.Shapes("Object 1").Select
Selection.Verb Verb:=xlOpen

Dim p As PowerPoint.Presentation
Set p = Selection.Object

注意：此代码假定PowerPoint对象名为对象1（查看左上角以查看其真正名称），并且它位于活动工作表中

3。获取对演示对象的引用

ActiveSheet.Shapes("Object 1").Select
Selection.Verb Verb:=xlOpen

Dim p As PowerPoint.Presentation
Set p = Selection.Object

4。操纵它

ActiveSheet.Shapes("Object 1").Select
Selection.Verb Verb:=xlOpen

Dim p As PowerPoint.Presentation
Set p = Selection.Object

您可以使用表示对象的所有方法和属性。下面是添加幻灯片的示例：

p.Slides.Add 1, ppLayoutBlank

5。取消选择它

ActiveSheet.Shapes("Object 1").Select
Selection.Verb Verb:=xlOpen

Dim p As PowerPoint.Presentation
Set p = Selection.Object

最简单的方法就是选择一个单元格

[a1].Select

希望有帮助