从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

注意:此代码假定PowerPoint对象名为Object 1(查看左上角以查看它的名称)并且它位于活动工作表上.

3.获取Presentation对象的引用

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

4.操纵它

您可以使用演示文稿对象的所有方法和属性.以下是添加幻灯片的示例:

p.Slides.Add 1, ppLayoutBlank

5.取消选择它

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

[a1].Select

希望有所帮助!