Quote Originally Posted by John Wilson View Post
Try adding shapes to the slide master named "ding" (they can be invisible - no line transparent fill or just of slide)

As an example use Insert > Action to add a ding sound on click.

You can play this from code

Dim oshp As Shape
Set oshp = ActivePresentation.SlideMaster.Shapes("ding")
oshp.ActionSettings(ppMouseClick).SoundEffect.Play

Should be easy to adapt to If / Then situations
Thanks a lot it worked.