Référence du développeur PowerPoint 2007 > Référence des modèles objet PowerPoint > MotionEffect, objet
Référence du développeur PowerPoint
MotionEffect, objet
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.
Visual Basic pour Applications
ActivePresentation.Slides(1).TimeLine.MainSequence.Item.Behaviors(1).MotionEffect
Utilisez les propriétésByX , ByY , FromX , FromY , ToX et ToY de l'objet MotionEffect pour créer une trajectoire. L'exemple suivant montre comment ajouter une forme à la première diapositive et créer une trajectoire.
Visual Basic pour Applications
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| 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 = 500
.ToY = 500
End With |
End Sub
© 2006 Microsoft Corporation. Tous droits réservés.
Partager