PowerPoint) (Presentation.Designs 属性

返回一个 Designs 对象，该对象代表设计集合。

语法

expression。 Designs

表达 一个代表 Presentation 对象的变量。

返回值

Designs

示例

以下示例对于当前演示文稿中的每个设计都会显示一条消息。

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

另请参阅

演示文稿对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。