将自定义幻灯片布局插入当前位置

Question

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

下面的代码将在 PowerPoint 演示文稿末尾插入编号为 01 Divider 幻灯片的自定义幻灯片布局。

'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