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代表插入新幻灯片的位置，您也可以根据需要修改。

希望这可以帮助到您！