从Excel VBA编辑嵌入式PowerPoint

Question

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

Answer 1

<强> 1。将PowerPoint对象模型的引用添加到您的VBA应用程序

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

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

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

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

第3。获取对Presentation对象的引用

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

<强> 4。操纵它

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

p.Slides.Add 1, ppLayoutBlank

<强> 5。取消选择

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

[a1].Select

希望有所帮助！