Enumerate all Layouts In A Powerpoint 2007 Presentation

[James]

I would like to enumerte all the masters and all the latouts within
the master for a Powerpoint 2007 presentation. Any code suggestions?

TIA

 

[Steve Rindsberg]

I would like to enumerte all the masters and all the latouts within
the master for a Powerpoint 2007 presentation. Any code suggestions?

TIA

Something like this:

Sub EnumerateDesigns()

Dim oDesign As Design
Dim oLayout As CustomLayout

For Each oDesign In ActivePresentation.Designs
With oDesign
Debug.Print .Name
Debug.Print .SlideMaster.CustomLayouts.Count
For Each oLayout In .SlideMaster.CustomLayouts
Debug.Print oLayout.Name
Next
End With
Next

End Sub