创建 Design 对象的副本。

expression.Clone(pOriginal, Index)

expression 必选。该表达式返回一个 Designs 对象。

pOriginal 必选。Design 对象。原始设计。

Index 可选。Long 类型。将设计复制到其中的 Designs 集合中的索引位置。如果忽略 Index，复制的设计将被添加到 Designs 集合的末尾。

应用于 Sequence 对象的 Clone 方法。

创建 Effect 对象的副本，并按指定索引将其添加到 Sequences 集合中。

expression.Clone(Effect, Index)

expression 必选。该表达式返回一个 Sequence 对象。

Effect 必选。Effect 类型。要复制的动画效果。

Index 可选。Long 类型。将复制的动画效果添加到 Sequences 集合中的位置。默认值为 -1（添加到末尾）。

示例

应用于 Designs 对象。

本示例创建一个设计并复制一个新建的设计。

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

应用于 Sequence 对象。

本示例复制一个动画效果。本示例假定存在一个名为“effDiamond”的动画效果。

Sub CloneEffect()

    ActivePresentation.Slides(1).TimeLine.MainSequence _
        .Clone Effect:=effDiamond, Index:=-1

End Sub