应用模板和主题

使用Presentation对象的ApplyTemplate方法和ApplyTheme方法，可以给演示文稿应用模板和主题。这两个方法都只有一个参数，指定模板或主题的路径和名称。

下面给当前演示文稿pr应用一个模板。我用的是Microsoft 365，不同的Powerpoint版本，模板文件的情况可能会不一样。

code.vba 
Sub Test()
  Dim pr As Presentation
  Set pr = Presentations(1)
  pr.ApplyTemplate "C:\Program Files\Microsoft Office\root\Templates\1033\WidescreenPresentation.potx"
End Sub

演示文稿的设置效果如图3-2所示。

Document Image

图3-2 给演示文稿应用模板