如何在PowerPoint当前位置插入自定义幻灯片版式？

• 已知可通过标准PpSlideLayout常量（如ppLayoutBlank）插入内置幻灯片版式，但无法直接用同样方式插入自定义版式（例如名为“01 Divider slide numbered”的自定义版式）。
• 以下VBA代码可将指定的自定义幻灯片版式插入到演示文稿末尾，同时包含功能实现和Ribbon按钮回调的代码：

'插入分隔页版式
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

'自定义按钮onAction回调
Sub Adds01DividerSlideNumbered(control As IRibbonControl)
    Call Module1.Add01DividerSlideNumbered
End Sub

'根据版式名称获取自定义版式对象的辅助函数
Function GetLayout(layoutName As String) As CustomLayout
    Dim oLayout As CustomLayout
    For Each oLayout In ActivePresentation.SlideMaster.CustomLayouts
        If oLayout.Name = layoutName Then
            Set GetLayout = oLayout
            Exit Function
        End If
    Next oLayout
    '如果未找到指定版式，返回空白版式作为备选
    Set GetLayout = ActivePresentation.SlideMaster.CustomLayouts(ppLayoutBlank)
End Function

代码说明： #

1. Add01DividerSlideNumbered：核心功能过程，通过调用GetLayout获取目标自定义版式，然后在演示文稿末尾插入使用该版式的幻灯片。
2. Adds01DividerSlideNumbered：用于Ribbon自定义按钮的回调过程，触发核心功能。
3. GetLayout：辅助函数，遍历幻灯片母版的所有自定义版式，根据名称匹配并返回对应的CustomLayout对象；如果未找到指定名称的版式，会返回空白版式作为备选。

内容的提问来源于stack exchange，提问作者Claud