合肥本本之星合肥Thinkpad专卖店合肥Apple专卖店 hfthink 合肥本之星信息科技有限公司

标题: PowerPoint 2010中实现随机播放的方法 [打印本页]

作者: 合肥俊少 时间: 2015-5-6 09:55 标题: PowerPoint 2010中实现随机播放的方法

故障现象:
PowerPoint 2010相比以前版本的PPT无论实在界面和性能上都大大的提高了，但是不幸的是竟然没有随机切换效果（随机播放）的功能了，有时候需要用却没办法实现很让人纠结。
解决方案:
首先把PPT都做好，然后打开选项，自定义功能区，把开发工具勾上。
然后在开发工具选项卡中选“宏”，新建一个，把下面的代码贴进去：

Sub RandEffect()
For i = 1 To ActivePresentation.Slides.Count
      With ActivePresentation.Slides(i).SlideShowTransition
         .AdvanceOnTime = msoTrue    '也可以选择定时切换
         .AdvanceTime = 0          '定时时长为0秒
         .EntryEffect = ppEffectRandom
         .Duration = 1.5             '切换时长1.5秒
      End With
Next
End Sub
保存成pptm格式，然后运行点宏，选 RandEffect，运行。
全部的幻灯片都随机播放了，不过缺陷是只能随机到很基础的特效，很高端的那种还不行。

欢迎光临合肥本本之星合肥Thinkpad专卖店合肥Apple专卖店 hfthink 合肥本之星信息科技有限公司 (http://hfthink.com/)