MotionEffect.ByY-Eigenschaft (PowerPoint)

Artikel
09/17/2024

Legt fest oder gibt einen Wert vom Typ Single zurück, der die VERTIKALE Skalierung oder Das Verschieben eines Objekts um einen angegebenen Prozentsatz der Bildschirmbreite darstellt, je nachdem, ob es in Verbindung mit einem ScaleEffect - oder MotionEffect-Objekt verwendet wird. Lese-/Schreibzugriff.

Syntax

Ausdruck. ByY

Ausdruck Eine Variable, die ein MotionEffect-Objekt darstellt.

Rückgabewert

Einzel

Hinweise

Negative Werte verschieben das Objekt horizontal nach links. Gleitkommazahlen (zum Beispiel 55,5) sind zulässig.

Zum Skalieren oder verschieben Sie ein Objekt horizontal, die ByX -Eigenschaft verwenden.

Wenn sowohl die ByX- als auch die ByY -Eigenschaften festgelegt werden, kann das Objekt ist skaliert oder horizontal und vertikal verschoben.

Verwechseln Sie nicht diese Eigenschaft mit der durch -Eigenschaft der ColorEffect, RotationEffect- oder PropertyEffect -Objekte, die verwendet wird, um Farben, Drehungen oder andere Eigenschaften eines Animationsverhaltens festzulegen.

Beispiel

Im folgenden Beispiel wird ein Animationspfad hinzugefügt. Anschließend wird die horizontale und vertikale Verschiebung der Form festgelegt.

Sub AddMotionPath()

    Dim effCustom As Effect
    Dim animBehavior As AnimationBehavior
    Dim shpRectangle As Shape

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

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

    Set animBehavior = effCustom.Behaviors.Add(msoAnimTypeMotion)

    'Specifies animation motion
    With animBehavior.MotionEffect
        .ByX = 50
        .ByY = 50
    End With

End Sub

Siehe auch

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