Designs 属性

返回代表设计集合的 Designs 对象。

expression  必选。该表达式返回“应用于”列表中的对象之一。

示例

以下示例为当前演示文稿中每种设计显示一条消息。

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