我可以从PowerPoint模板中提取所有布局名称的列表吗?

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