SoundEffect Property Example

This example sets the file Bass.wav to be played whenever shape one on slide one in the active presentation is animated.

With ActivePresentation.Slides(1).Shapes(1).AnimationSettings
    .Animate = True
    .TextLevelEffect = ppAnimateByAllLevels
    .SoundEffect.ImportFromFile "c:\sndsys\bass.wav"
End With