VBA/Excel/Access/Word/PowerPoint/Slide Transition

Setting a Transition for a Slide, a Range of Slides, or a Master

 
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