我可以从PowerPoint模板中提取llayout名称列表吗？

Question

我正在更新一些演示文稿，使用VBA或其他简单方法提取布局名称列表会很有帮助，而不是在slidemaster视图中查看每个布局并键入所有布局名称的列表。

最终目标是确保在将新模板应用于旧演示文稿时，不会添加任何新布局。

我想比较布局，以便我的新模板包含旧模板中所有名称的已定义布局。

这是PPT 2013.

Answer 1

像这样：

Sub ShowMeStuff()
    Dim oDes As Design
    Dim oLay As CustomLayout

    For Each oDes In ActivePresentation.Designs
        Debug.Print oDes.Name
        For Each oLay In oDes.SlideMaster.CustomLayouts
            Debug.Print vbTab & oLay.Name
        Next
    Next
End Sub