PowerPoint VBA教程:Clone方法

应用于 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(添加到末尾)。

VBA示例

应用于 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

上页:PowerPoint VBA教程:ClearAll方法 下页:PowerPoint VBA教程:CloneNode方法

PowerPoint VBA教程:Clone方法

PowerPoint VBA教程:CloneNode方法 PowerPoint VBA教程:Close方法
PowerPoint VBA教程:Colors方法 PowerPoint VBA教程:Convert方法
PowerPoint VBA教程:ConvertToAfterEffect方法 PowerPoint VBA教程:ConvertToAnimateBackground方法
PowerPoint VBA教程:ConvertToAnimateInReverse方法 PowerPoint VBA教程:ConvertToBuildLevel方法
PowerPoint VBA教程:ConvertToShape方法 PowerPoint VBA教程:ConvertToTextUnitEffect方法
PowerPoint VBA教程:Copy方法 PowerPoint VBA教程:CreateNewDocument方法
PowerPoint VBA教程:CustomDrop方法 PowerPoint VBA教程:CustomLength方法
PowerPoint VBA教程:Cut方法 PowerPoint VBA教程:Delete方法
PowerPoint VBA教程:DeleteText方法 PowerPoint VBA教程:DiscardConflict Method
PowerPoint VBA教程:Distribute方法 PowerPoint VBA教程:DoVerb方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号