使用Excel中的VBA从powerpoint模板创建新的powerpoint演示文稿

Question

我有一个excel宏，可以从指定位置打开一个powerpoint文件。 powerpoint文件是一个模板，但我需要宏来基于模板设计创建一个新的演示文稿，而不是打开模板本身。 我的代码将打开模板而不是基于该模板的新演示文稿，如下所示：

   Sub Open_PowerPoint_Presentation()
'Opens a PowerPoint Document from Excel

Dim objPPT As Object

Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True

'Change the directory path and file name to the location
'of your document

objPPT.Presentations.Open "C:\Users\Colin\Documents\Custom Office Templates\PowerPoint Templates\Edge45 Monthly Report Template Macro.potm"

End Sub

有谁知道如何修改它以使其基于模板创建新的演示文稿而不是打开模板本身？

非常感谢提前。

科林

Answer 1

在我看来，您应该打开模板文件，并将Untitled参数（Open方法）设置为true。

objPPT.Presentations.Open FileName:="MyTemplate Macro.potm", Untitled:=msoTrue

根据Presentations.Open Method (PowerPoint)，

  

打开没有标题的文件。这相当于创建副本   该文件。