PowerPoint 2010中實現隨機播放的方法

 　　PowerPoint 2010相比以前版本的PPT無論實在界面和性能上都大大的提高了，但是不幸的是竟然沒有隨機切換效果(隨機播放)的功能了，有時候需要用卻沒辦法實現很讓人糾結。不過好在我們可以借助VBS腳本(宏)實現這個功能。

　　首先把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，運行。

　　OK，全部的幻燈片都隨機播放了，不過缺陷是只能隨機到很基礎的特效，很高端的那種還不行。

        .