Share via

Designs Property

  • Article

Designs Property
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

Returns a Designs 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