从Excel VBA编辑embedded的PowerPoint

我有一个Excel工作簿中embeddedPowerPoint演示文稿。 如何使用VBA编辑这个(打开,复制幻灯片,添加数据到幻灯片,closures)?

1.将对象模型的引用添加到您的VBA应用程序

在VBA窗口中,select工具| 参考
查找Microsoft Powerpoint 12.0对象库并检查它

2.select并激活PowerPoint演示文稿对象

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

注意:此代码假定PowerPoint对象被命名为对象1 (查看左上angular以查看它的真实名称),并且它位于活动工作表上。

3.获取对象的引用

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

4.操纵它

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

 p.Slides.Add 1, ppLayoutBlank 

5.取消select

最简单的方法就是select一个单元格。

 [a1].Select 

希望有所帮助!