CommandEffect in custom animation

[Magnus]

In the PowerPoint 2003 help they said “You can send events, call functions,
and
send OLE verbs to embedded objects using this propertyâ€
Is it possible to create an animation in PowerPoint that call a VBA macro?
How should the code look?

I have tried this but it doesn’t work.

Sub CreateMacro()
Set currentShape = Application.ActivePresentation.Slides(1).Shapes(3)
Set effCustom =
Application.ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(currentShape,
msoAnimEffectCustom, msoAnimateLevelNone, msoAnimTriggerWithPrevious)
Set bhvEffect = effCustom.Behaviors.Add(msoAnimTypeCommand)
With bhvEffect.CommandEffect
.Type = msoAnimCommandTypeCall
.Command = "Test1"
End With
End Sub

Public Sub Test1()
ActivePresentation.Slides(1).Shapes(3).Fill.ForeColor.RGB = RGB(200, 100,
100)
End Sub

When I run my CreaeMacro function It appear a new animation in PowerPoint.
But when I run the slideshow the animation never call the Test1 macro.

Can any one complete this VBA-code?

Best regards
Magnus