Sets or returns a Single that represents the ending width or horizontal position of a ScaleEffect or MotionEffect object, respectively, specified as a percent of the screen width. Read/write.
Syntax
expression.ToX
expression A variable that represents a ScaleEffect object.
Return Value
Single
Remarks
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 FromX 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.
Example
The following example adds an animation path and sets the starting and ending horizontal and vertical positions.
| Visual Basic for Applications
|
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
|
See also: