RotationEffect.By-Eigenschaft (PowerPoint)

Artikel
09/17/2024

Legt einen Wert vom Typ Single fest, der die Drehung eines Objekts um die angegebene Gradzahl darstellt, oder gibt diesen wert zurück. Beispielsweise bedeutet ein Wert von 180, dass das Objekt um 180 Grad gedreht wird. Lese-/Schreibzugriff.

Syntax

Ausdruck. By

Ausdruck Eine Variable, die ein RotationEffect-Objekt darstellt.

Hinweise

Das angegebene Objekt wird so gedreht, dass seine Mitte an derselben Position auf dem Bildschirm bleibt.

Wenn der durch und So für einen Drehungseffekt festgelegt sind, wird der Wert der Eigenschaft durch ignoriert.

Gleitkommazahlen (z. B. 55,5) sind gültig, negative Zahlen dagegen ungültig.

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

Beispiel

In diesem Beispiel wird ein Rotationseffekt hinzugefügt und die Rotation geändert.

Sub AddAndChangeRotationEffect()
    Dim effBlinds As Effect
    Dim tmlnShape As TimeLine
    Dim shpShape As Shape
    Dim animBehavior As AnimationBehavior
    Dim rtnEffect As RotationEffect

    'Sets shape, timing, and effect
    Set shpShape = ActivePresentation.Slides(1).Shapes(1)
    Set tmlnShape = ActivePresentation.Slides(1).TimeLine
    Set effBlinds = tmlnShape.MainSequence.AddEffect _
        (Shape:=shpShape, effectId:=msoAnimEffectBlinds)

    'Adds animation behavior and sets rotation effect
    Set animBehavior = tmlnShape.MainSequence(1).Behaviors _
        .Add(Type:=msoAnimTypeRotation)
    Set rtnEffect = animBehavior.RotationEffect

    rtnEffect.By = 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