MotionEffect-Objekt (PowerPoint)

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

Beispiel

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

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

Verwenden Sie die ByX ,ByY ,FromX ,FromY ,ToX undToY -Eigenschaften des MotionEffect -Objekts, um einen Pfad zu erstellen. Die Eigenschaften ToY und ToX sind in Prozent, wobei ToX = 1.0 bedeutet 100 % der Folienbreite und ToY = 1.0 bedeutet 100 % der Folienhöhe. Im folgenden Beispiel wird der ersten Folie eine Form hinzugefügt und erstellt einen Pfad.

Sub AddMotionPath()

    Dim shpNew As Shape
    Dim effNew As Effect
    Dim aniMotion 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, _
        Trigger:=msoAnimTriggerWithPrevious)

    Set aniMotion = effNew.Behaviors.Add(msoAnimTypeMotion)

    With aniMotion.MotionEffect
        .FromX = 0
        .FromY = 0
        .ToX = .5
        .ToY = .5
    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.