从Excel VBA编辑嵌入式PowerPoint

时间:2020-03-06 14:37:59  来源:igfitidea点击:

我在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

希望对我们有所帮助!