大众计算机学习网

专门提供各种电脑教程

SlideShowSettings对象 SlideShowTransition对象

Admin | 2013-9-1 8:39:28 | 被阅次数 | 4703

  一、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:\testtemp\dzwbs.wav"
      .AdvanceOnTime = True
      .AdvanceTime = 5
  End With
  ActivePresentation.SlideShowSettings.AdvanceMode = ppSlideShowUseSlideTimings