vba - 在 PowerPoint 中触发动画

Question

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

Sub DoAnimation()

End Sub

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

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