VBA/Excel/Access/Word/PowerPoint/Slide Transition
Setting a Transition for a Slide, a Range of Slides, or a Master
<source lang="vb">
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
</source>