实例：怎样利用vba制作路径——完全非弹性碰撞动画

　　ppt的路径动画无法精确调整路径端点，因此本例用vba解决这一问题。

　1、要做的效果是：左边的球中心运动到（9cm,10cm）时，两球立刻以原来速度的一半向右滑出画面。因此，需要对m1设置两段动画——碰撞前的运动较快，碰撞后的运动较慢，m2设置一段动画——但要和m1的第二段一起执行。

　2、先把幻灯片页面设为32cm宽，进入vba环境，编写下面的程序。

Public Sub AddMotionPath()
    Dim m1 As Shape, m2 As Shape, effNew As Effect, aniMotion As AnimationBehavior

    '绘制两个小球，并分别设置填充色
    Set m1 = ActivePresentation.Slides(1).Shapes.AddShape(Type:=msoShapeOval, _
        Left:=cm2p(1), Top:=cm2p(10), Width:=cm2p(1), Height:=cm2p(1))
    m1.Fill.ForeColor.RGB = RGB(255, 0, 0)
    Set m2 = ActivePresentation.Slides(1).Shapes.AddShape(Type:=msoShapeOval, _
             Left:=cm2p(12), Top:=cm2p(10), Width:=cm2p(1), Height:=cm2p(1))
    m2.Fill.ForeColor.RGB = RGB(0, 0, 255)

    '设置左边小球碰撞前的动画效果
    Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
                 AddEffect(Shape:=m1, effectId:=msoAnimEffectPathRight, _

                 Trigger:=msoAnimTriggerOnPageClick)
    Set aniMotion = effNew.Behaviors.Add(msoAnimTypeMotion)
    aniMotion.MotionEffect.Path = "M 0 0 L " & 10 / 32 & " 0"
    aniMotion.Timing.Speed = 1

    '设置左边小球碰撞后的动画效果
    Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
                 AddEffect(Shape:=m1, effectId:=msoAnimEffectPathRight, _

                 Trigger:=msoAnimTriggerAfterPrevious)
    Set aniMotion = effNew.Behaviors.Add(msoAnimTypeMotion)
    aniMotion.MotionEffect.Path = "M " & 10 / 32 & " 0 L 1 0"
    aniMotion.Timing.Speed = 0.5

    '设置右边小球碰撞后的动画效果
    Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
                 AddEffect(Shape:=m2, effectId:=msoAnimEffectPathRight,  _

                 Trigger:=msoAnimTriggerWithPrevious)
    Set aniMotion = effNew.Behaviors.Add(msoAnimTypeMotion)
    aniMotion.MotionEffect.Path = "M 0 0 L " & 22 / 32 & " 0"
    aniMotion.Timing.Speed = 0.5
End Sub

　　程序一开始绘制两个小圆形，直径均为1cm，单位需要转化为磅，cm2p()函数见下面。

Private Function cm2p(cm As Single) As Single
    cm2p = cm * 28.35
End Function

　　然后，程序添加3段向右运动的效果，AddEffect方法的Shape参数是指定应用动画的对象，effectID指定动画效果，Trigger指定动画发生时间（这里是单击幻灯片页面时发生），后面定义路径（字母M定义起点，M 0 0就是表示对象当前位置为起点，L表示直线运动到的位置，L 10/32 0表示横向向右运动幻灯片宽度的10/32，另外还有C、Z、X、H、V命令），再定义速度。以下定义碰撞以后m1和m2的运动效果，语句大体不变，只改变动画发生时间（m1的为前一动画结束时，m2与m1的第二段动画同时）和速度。

　　以上程序只需要执行一遍即设置完毕，然后可以删掉语句。