ToX Property

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.

expression   Required. An expression that returns one of the objects in the Applies To list.

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.

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