Question

全部显示

应用于Designs 对象的 Clone 方法。

创建 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