Mac Forum / Applications / PowerPoint / May 2005

Hi,

There is an article located here that explains how to use the
motioneffect object:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbapp11/html/pp
objMotionEffect_HV03080945.asp

Here's the code example from the above article. I tested it in Mac
PowerPoint 2004 and it works fine. This adds a shape to a slide and then
gives it a motion path

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

To change the animation order simply select an animation in the custom
animation dialog box then click the up or down arrows next to the list
of objects that have animations. They will move and and down the list.

-Jim