如何通过VBA使用powerpoint模板来构建所需的幻灯片？

Sub CreateSlidesFromTemplate()
    Dim pptApp As PowerPoint.Application
    Dim pptPres As PowerPoint.Presentation
    Dim pptSlide As PowerPoint.Slide
    Dim templatePath As String
    
    ' 设置PowerPoint应用程序对象
    Set pptApp = New PowerPoint.Application
    
    ' 打开模板文件
    templatePath = "C:\Path\To\Your\Template.potx"
    Set pptPres = pptApp.Presentations.Open(templatePath)
    
    ' 在模板的基础上创建新的幻灯片
    Set pptSlide = pptPres.Slides.Add(pptPres.Slides.Count + 1, ppLayoutTitleOnly)
    
    ' 修改幻灯片的内容
    pptSlide.Shapes.Title.TextFrame.TextRange.Text = "标题"
    pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "内容"
    
    ' 保存新的PowerPoint文件
    pptPres.SaveAs "C:\Path\To\Your\New\Presentation.pptx"
    
    ' 关闭PowerPoint应用程序
    pptPres.Close
    pptApp.Quit
    
    ' 释放对象
    Set pptSlide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
End Sub