VBA调用PPT中已有版式的代码

以下是使用 VBA 调用 PPT 中已有版式的代码示例：

Sub UseMasterLayout()
    Dim ppt As PowerPoint.Application
    Dim pres As PowerPoint.Presentation
    Dim slide As PowerPoint.Slide
    Dim layout As PowerPoint.CustomLayout
    
    '打开 PPT 文件
    Set ppt = New PowerPoint.Application
    Set pres = ppt.Presentations.Open("C:\Presentation.pptx")
    
    '选择要使用的幻灯片和版式
    Set slide = pres.Slides(1)
    Set layout = pres.Designs(1).SlideMaster.CustomLayouts(1)
    
    '使用选择的版式创建新幻灯片
    slide.MoveTo toPos:=2
    pres.Slides.AddSlide 2, layout
    
    '关闭 PPT 文件
    pres.Save
    pres.Close
    ppt.Quit
End Sub

这段代码首先打开名为 "Presentation.pptx" 的 PPT 文件，然后选择第一张幻灯片和第一个自定义版式。然后，它使用选择的版式创建一个新幻灯片，并将其放置在第二个位置。最后，它保存并关闭 PPT 文件。您可以根据需要修改此代码以满足您的具体需求。