|
|
一、SlideShowSettings对象
代表演示文稿的幻灯片放映设置。
使用SlideShowSettings对象
使用 SlideShowSettings 属性返回 SlideShowSettings 对象。以下示例的第一部分设置当前演示文稿中的所有幻灯片在五秒后自动切换。第二部分设置幻灯片放映从第二张开始到第四张结束，使用在第一部分中设置的计时切换幻灯片，并连续循环放映幻灯片，直到用户按 Esc。最后，本示例运行幻灯片放映。
For Each s In ActivePresentation.Slides
With s.SlideShowTransition
.AdvanceOnTime = True
.AdvanceTime = 5
End With
Next
With ActivePresentation.SlideShowSettings
.RangeType = ppShowSlideRange
.StartingSlide = 2
.EndingSlide = 4
.AdvanceMode = ppSlideShowUseSlideTimings
.LoopUntilStopped = True
.Run
End With
二、SlideShowTransition对象
包含幻灯片放映过程中指定幻灯片切换方式的信息。
使用 SlideShowTransition 对象
使用 SlideShowTransition 属性返回 SlideShowTransition 对象。以下示例为当前演示文稿第一张幻灯片指定快速阶梯状向左下展开切换方式，并伴随有 Bass.wav 声音，而且指定幻灯片在前一个动画或幻灯片切换结束五秒后自动换片。
With ActivePresentation.Slides(1).SlideShowTransition
.Speed = ppTransitionSpeedFast
.EntryEffect = ppEffectStripsDownLeft
.SoundEffect.ImportFromFile "d:testtempdzwbs.wav"
.AdvanceOnTime = True
.AdvanceTime = 5
End With
ActivePresentation.SlideShowSettings.AdvanceMode = ppSlideShowUseSlideTimings
|
|
