Designs Property

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