object, representing a collection of designs.
expression.Designs
expression Required. An expression that returns one of the objects in the Applies To list.
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