设计.Clone 方法 (PowerPoint)

创建 Design 对象的一个副本。

语法

expression. Clone( _pOriginal_, _Index_ )

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

参数

名称	必需/可选	数据类型	说明
pOriginal	必需	Design	设计 对象。 原始的设计中。
Index	可选	Long	将向其中复制设计在 Designs 集合中的索引位置。 如果未指定索引，则克隆的设计加入 设计 集合的末尾。

返回值

Design

示例

以下示例将创建一个设计并复制该新建的设计。

Sub CloneDesign()

    Dim dsnDesign1 As Design
    Dim dsnDesign2

    Set dsnDesign1 = ActivePresentation.Designs _
        .Add(designName:="Design1")

    Set dsnDesign2 = ActivePresentation.Designs _
        .Clone(pOriginal:=dsnDesign1, Index:=1)

End Sub

另请参阅

设计对象

支持和反馈

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