在Excel中使用VBA从PowerPoint模板创build新的PowerPoint演示文稿

我有一个Excelmacros，从指定的位置打开PowerPoint文件。 PowerPoint文件是一个模板，但我需要macros创build一个基于模板devise的新演示文稿，而不是打开模板本身。 我的代码将打开模板，而不是基于该模板的新演示文稿，如下所示：

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 

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

提前谢谢了。

科林

Answer 1

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

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

根据演示文稿。开放方法（PowerPoint） ，

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