Came across this online somewhere, I don't know if it will work in 2000 or not. Hit Alt+F11 to open Visual Basic editor. Click "Insert" then "Add Module". Put this code in side of the module. You can change shapes and effects by changing the msoShapeRectangle and msoAnimEffectPathZigzag, try msoAnimEffectSpin.
Sub CreateAnimationWithTrigger()
Dim oEffect As Effect
Dim oShpA As Shape
Dim oShpB As Shape
With ActivePresentation.Slides(1)
'Create two autoshapes on the slide.
Set oShpA = .Shapes.AddShape(msoShapeLightningBolt, 100, 100, 50, 50)
Set oShpB = .Shapes.AddShape(msoShapeRectangle, 200, 100, 50, 50)
' Assign an interactive animation to shape A
Set oEffect = .TimeLine.InteractiveSequences.Add _
.AddEffect(Shape:=oShpA, effectId:=msoAnimEffectPathZigzag, _
trigger:=msoAnimTriggerOnShapeClick)
End With
' Define the triggering shape. If you omit this line then the animation will be
' triggered by clicking on the shape A itself.
oEffect.Timing.TriggerShape = oShpB
End Sub
Hope this is helpful.
Steve