Your code would workonly if all slides were already selected. To apply to all the slides in a presentation use:
' Add Transition
With ActivePresentation.Slides.Range.SlideShowTransitio n ' watch out for the auto added extra space!
.EntryEffect = ppEffectFadeSmoothly
.Speed = ppTransitionSpeedFast
.AdvanceOnClick = msoTrue
End With
|