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

Материал из VB Эксперт
Перейти к: навигация, поиск

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

   <source lang="vb">

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

</source>