RotationEffect.From-Eigenschaft (PowerPoint)

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

Syntax

Ausdruck. From

Ausdruck Eine Variable, die ein RotationEffect-Objekt darstellt.

Hinweise

Verwenden Sie diese Eigenschaft zusammen mit der To -Eigenschaft für einen Ü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 FromX oder FromY -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 geändert.

Sub AddAndChangeRotationEffect()

    Dim effBlinds As Effect
    Dim tlnTiming As TimeLine
    Dim shpRectangle As Shape
    Dim animRotation As AnimationBehavior
    Dim rtnEffect As RotationEffect

    'Adds rectangle and sets effect and animation
    Set shpRectangle = ActivePresentation.Slides(1).Shapes_
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)

    Set tlnTiming = ActivePresentation.Slides(1).TimeLine

    Set effBlinds = tlnTiming.MainSequence.AddEffect(Shape:=shpRectangle, _
        effectId:=msoAnimEffectBlinds)

    Set animRotation = tlnTiming.MainSequence(1).Behaviors _
        .Add(Type:=msoAnimTypeRotation)

    Set rtnEffect = animRotation.RotationEffect

    'Sets the rotation effect starting and ending positions
    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.