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