This example sets the special effect for the transition to slide one in the active presentation to Strips Down-Left and specifies that the transition be fast.
With ActivePresentation.Slides(1).SlideShowTransition
.EntryEffect = ppEffectStripsDownLeft
.Speed = ppTransitionSpeedFast
End With