AnimateAction Property Example
This example sets shape three on slide one in the active presentation to play the sound of applause and to momentarily invert its color when it's clicked during a slide show.
With ActivePresentation.Slides(1) _
.Shapes(3).ActionSettings(ppMouseClick)
.SoundEffect.Name = "applause"
.AnimateAction = True
End With