AnimationBehavior.RotationEffect-Eigenschaft (PowerPoint)

Artikel
04/07/2023

Gibt ein RotationEffect -Objekt für ein Animationsverhalten zurück. Schreibgeschützt.

Syntax

Ausdruck. RotationEffect

Ausdruck Eine Variable, die ein AnimationBehavior-Objekt darstellt.

Rückgabewert

RotationEffect

Beispiel

Im folgenden Beispiel wird der ersten Folie eine neue Form hinzugefügt und das Rotationsanimationsverhalten festgelegt.

Sub AddRotation()

    Dim shpNew As Shape
    Dim effNew As Effect
    Dim aniNew As AnimationBehavior

    Set shpNew = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShape5pointStar, Left:=0, _
        Top:=0, Width:=100, Height:=100)

    Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpNew, effectId:=msoAnimEffectCustom)

    Set aniNew = effNew.Behaviors.Add(msoAnimTypeRotation)

    With aniNew.RotationEffect
        'Rotate 270 degrees from current position
        .By = 270
    End With

End Sub

Siehe auch

AnimationBehavior-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.

Freigeben über