本示例设置在幻灯片放映过程中,当前演示文稿的第二张幻灯片在 5 秒后自动换片,并在幻灯片切换时播放声音。

With ActivePresentation.Slides(2).SlideShowTransition
    .AdvanceOnTime = True
    .AdvanceTime = 5
    .SoundEffect.ImportFromFile "c:\winnt\media\ding.wav"
End With
ActivePresentation.SlideShowSettings.AdvanceMode = _
    wpSlideShowUseSlideTimings