Objet MotionEffect (PowerPoint)

Représente l’effet de mouvement d’un objet AnimationBehavior.

Exemple

Utilisez la propriété MotionEffect de l’objet AnimationBehavior pour renvoyer un objet MotionEffect . L’exemple suivant décrit l’effet de mouvement appliqué à un comportement d’animation précis.

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

Utilisez les propriétés ByX, ByY, FromX, FromY, ToX et ToYde l’objet MotionEffect pour construire un chemin de mouvement. Les propriétés ToY et ToX sont exprimées en pourcentage, où ToX = 1,0 signifie 100 % de la largeur de la diapositive et ToY = 1,0 représente 100 % de la hauteur de la dispositive. L’exemple suivant montre comment ajouter une forme à la première diapositive et comment créer une trajectoire.

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

Voir aussi

Référence du modèle objet PowerPoint

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.