MoveBefore 方法

将一个动画效果移动到另一个动画效果之前。

expression 必选。该表达式返回“应用于”列表中的对象之一。

Effect 必选。Effect 对象。expression 中的效果将被移动到其前的效果。

示例

以下示例将一个效果移动到另一个效果之前。

Sub MoveEffect()
    Dim effOne As Effect
    Dim effTwo As Effect
    Dim shpFirst As Shape

    Set shpFirst = ActivePresentation.Slides(1).Shapes(1)
    Set effOne = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect _
        (Shape:=shpFirst, effectId:=msoAnimEffectBlinds)
    Set effTwo = ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect _
        (Shape:=shpFirst, effectId:=msoAnimEffectBlast)

    effTwo.MoveBefore Effect:=effOne
End Sub