返回代表设计集合的 Designs 对象。
expression.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