从Excel VBA编辑嵌入式PowerPoint VBA

Question

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

Answer 1

1至PowerPoint对象模型的引用添加到您的VBA应用

从VBA窗口中，选择工具|参考
查找微软Powerpoint 12.0对象库，并检查它

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

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

注：此代码假定PowerPoint对象名为对象1（查看左上角的内容，查看它的真名）以及它位于活动工作表上。

3.获取对演示文稿对象

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

4.参考操纵它

所有方法和演示文稿对象的属性都可以给你。下面是添加幻灯片的例子：

p.Slides.Add 1, ppLayoutBlank 

5.取消选择它

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

[a1].Select 

希望有帮助！