Метод Effect.MoveBefore (PowerPoint)

Перемещает один эффект анимации в перед другим эффектом анимации.

Синтаксис

выражение. MoveBefore( _Effect_ )

выражение Переменная, представляющая объект Effect .

Пример

В следующем примере один эффект перемещается перед другим.

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

См. также

Объект Effect

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.