Freigeben über

RotationEffect-Objekt (PowerPoint)

  • Artikel

Stellt einen Rotationseffekt für ein AnimationBehavior -Objekt dar.

Beispiel

Verwenden Sie die RotationEffect-Eigenschaft des AnimationBehavior-Objekts , um ein RotationEffect-Objekt zurückzugeben. Das folgende Beispiel bezieht sich auf den Rotationseffekt für ein bestimmtes Animationsverhalten.

ActivePresentation.Slides(1).TimeLine.MainSequence.Item.Behaviors(1).RotationEffect

Verwenden Sie die Eigenschaften By, From und To des RotationEffect-Objekts , um die Animationsdrehung eines Objekts zu beeinflussen. 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

PowerPoint-Objektmodellreferenz

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.