在PowerPoint中触发动画

Question

我有Microsoft Office PowerPoint 2007.我想让它在我按下F4键时启动特定动画。我目前有以下内容：

Sub DoAnimation()

End Sub

Sub auto_open()
    Application.OnKey "{F4}","DoAnimation"
End Sub

那么如何在DoAnimation子中启动动画？