VBA PowerPoint：将自定义幻灯片布局插入当前位置而不是幻灯片包的末尾

Question

问题 我知道可以将带有标准 PpSlideLayout 常量之一（即：ppLayoutBlank）的 PPT 布局插入到当前位置，但是我不知道如何对自定义幻灯片布局执行相同的操作。 （即如下所示，编号为 01 Divider 幻灯片）

帮助

以下代码 将名为 01 Divider 幻灯片的自定义幻灯片布局插入到 powerpoint 演示文稿的末尾。

'Insert Divider page layout
Sub Add01DividerSlideNumbered()
    Dim oSlides As Slides, oSlide As Slide
    Set oSlides = ActivePresentation.Slides
    Set oSlide = oSlides.AddSlide(oSlides.Count + 1, GetLayout("01 Divider slide numbered"))
End Sub

'Callback for customButton onAction
Sub Adds01DividerSlideNumbered(control As IRibbonControl)
    Call Module1.Add01DividerSlideNumbered
End Sub

Answer 1

您可以按如下方式获取当前幻灯片索引...

ActivePresentation.Windows(1).View.Slide.SlideIndex