Freigeben über


Effect.MoveAfter-Methode (PowerPoint)

Verschiebt einen Animationseffekt in der Animationsreihenfolge an die auf einen anderen Animationseffekt folgende Position.

Syntax

Ausdruck. MoveAfter( _Effect_ )

Ausdruck Eine Variable, die ein Effect-Objekt darstellt.

Beispiel

In dem folgenden Beispiel wird ein Effekt in der Animationsreihenfolge hinter einen anderen Effekt verschoben.

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)

    effOne.MoveAfter Effect:=effTwo

End Sub

Siehe auch

Effect-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.