Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

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