VBA调用PPT中已有的板式

您可以使用以下代码调用PPT中已有的板式：

Sub InsertLayout()
    Dim pptSlide As Slide
    Set pptSlide = ActivePresentation.Slides.AddSlide(2, ActivePresentation.Designs(1).SlideMaster.CustomLayouts(1))
End Sub

其中，`ActivePresentation` 代表当前正在运行的PPT文件，`Designs(1).SlideMaster.CustomLayouts(1)` 代表PPT中第一个设计模板（Design）的第一个自定义版式（CustomLayout），您可以根据自己需要修改这部分代码。同时，`AddSlide(2, ...)` 中的2代表插入新幻灯片的位置，您也可以根据需要修改。

希望这可以帮助到您！

相关问题

VBA调用PPT中已有的版式

要在 VBA 中调用 PPT 中已有的版式，可以使用以下步骤：

1. 打开 PPT 文件并选择要使用的幻灯片。
2. 在“视图”选项卡上选择“幻灯片母版”。
3. 在“母版”选项卡上选择要使用的版式。
4. 在“主页”选项卡上选择“新幻灯片”。
5. 在弹出的菜单中选择“选择母版”。

这样，新幻灯片将使用您选择的版式。然后，您可以使用 VBA 代码来对该幻灯片进行任何所需的更改。

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 文件。您可以根据需要修改此代码以满足您的具体需求。