Hi,
There is an article located here that explains how to use the
motioneffect object:
http://msdn.microsoft.com/library/d...vbapp11/html/ppobjMotionEffect_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