Sub slide()
With ActivePresentation.Slides(1)
With .SlideShowTransition
.EntryEffect = ppEffectDissolve
.Speed = ppTransitionSpeedMedium
.AdvanceOnClick = msoTrue
.AdvanceOnTime = msoTrue
.AdvanceTime = 30
.SoundEffect.ImportFromFile _
FileName:="d:\Crescendo.wav"
.LoopSoundUntilNext = msoFalse
End With
End With
End Sub