使用 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)，

Opens the file without a title. This is equivalent to creating a copy of the file.

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

Create new PowerPoint presentation from PowerPoint template using VBA in Excel

excel

powerpoint

vba

templates