RotationEffect.To-Eigenschaft (PowerPoint)

Artikel
09/17/2024

Legt fest oder gibt einen einzelnen, die die Endzeichenposition Drehung eines Objekts in Grad relativ zum Bildschirm darstellt (beispielsweise um 90 Grad ist vollständig horizontal). Lese-/Schreibzugriff.

Syntax

Ausdruck. To

Ausdruck Eine Variable, die ein RotationEffect-Objekt darstellt.

Rückgabewert

Einzel

Hinweise

Verwenden Sie diese Eigenschaft in Verbindung mit der von -Eigenschaft für den Übergang von einem Rotationswinkel zu einem anderen.

Der Standardwert ist Empty in diesem Fall die aktuelle Position des Objekts verwendet wird.

Verwechseln Sie nicht diese Eigenschaft mit der ToX oder ToY -Eigenschaften der Objekte ScaleEffect und MotionEffect -Objekte, die nur zum Skalieren oder für Bewegungseffekte verwendet werden.

Beispiel

Im folgenden Beispiel wird ein Rotationseffekt hinzugefügt und dessen Rotationswinkel sofort von 90° in 270° geändert.

Sub AddAndChangeRotationEffect()

    Dim effBlinds As Effect
    Dim tmlTiming As TimeLine
    Dim shpRectangle As Shape
    Dim animColor As AnimationBehavior
    Dim rtnEffect As RotationEffect

    Set shpRectangle = ActivePresentation.Slides(1).Shapes(1)
    Set tmlTiming = ActivePresentation.Slides(1).TimeLine
    Set effBlinds = tmlTiming.MainSequence.AddEffect(Shape:=shpRectangle, _
        effectId:=msoAnimEffectBlinds)
    Set animColor = tmlTiming.MainSequence(1).Behaviors.Add(Type:=msoAnimTypeRotation)
    Set rtnEffect = animColor.RotationEffect
    rtnEffect.From = 90
    rtnEffect.To = 270

End Sub

Siehe auch

RotationEffect-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