相关文章：

选项卡中选“宏”，新建一个，把下面的代码贴进去：

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，运行。

全部的幻灯片都随机播放了，不过缺陷是只能随机到很基础的特效，很高端的那种还不行。