PowerPointテンプレートからllayoutの名前のリストを抽出できますか？

Question

私はいくつかのプレゼンテーションを更新しています。スライダマスタービューで各レイアウトを表示し、すべてのレイアウト名のリストを入力するのではなく、VBAまたは別の簡単な方法でレイアウト名のリストを抽出すると便利です。

最後の目標は、新しいテンプレートを古いプレゼンテーションに適用するときに、新しいレイアウトが追加されないようにすることです。

新しいテンプレートに古いテンプレートに含まれるすべての名前の定義済みのレイアウトが含まれるように、レイアウトを比較したいと思います。

これがそうのように

Answer 1

PPT 2013年である：

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