Setting a Transition for a Slide, a Range of Slides, or a Master : Slide Transition « PowerPoint « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. PowerPoint
3. 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

 

Related examples in the same category