Presentation.Designs Property (PowerPoint)
Returns a Designs object that represents a collection of designs.
Syntax
expression .Designs
expression A variable that represents a Presentation object.
Return Value
Designs
Example
The following example displays a message for each design in the active presentation.
Sub AddDesignMaster()
Dim desName As Design
With ActivePresentation
For Each desName In .Designs
MsgBox "The design name is " & .Designs.Item(desName.Index).Name
Next
End With
End Sub