expression Required. An expression that returns one of the objects in the Applies To list.
The default value of this property is Empty, in which case the current position of the object is used.
Use this property in conjunction with the FromY property to resize or jump from one position to another.
Do not confuse this property with the To property of the ColorEffect , RotationEffect , or PropertyEffect objects, which is used to set or change colors, rotations, or other properties of an animation behavior, respectively.
The following example adds an animation path and sets the starting and ending horizontal and vertical positions.
Sub AddMotionPath() Dim effCustom As Effect Dim animMotion As AnimationBehavior Dim shpRectangle As Shape 'Adds shape and sets effect and animation properties Set shpRectangle = ActivePresentation.Slides(1).Shapes _ .AddShape(Type:=msoShapeRectangle, Left:=100, _ Top:=100, Width:=50, Height:=50) Set effCustom = ActivePresentation.Slides(1).TimeLine.MainSequence _ .AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectCustom) Set animMotion = effCustom.Behaviors.Add(msoAnimTypeMotion) 'Sets starting and ending horizontal and vertical positions With animMotion.MotionEffect .FromX = 0 .FromY = 0 .ToX = 50 .ToY = 50 End With End Sub