PPT 2010 介面移除隨機切換，用 VBA 找回：

1. 「檔案」>「選項」>「自訂功能區」> 勾選「開發工具」。
2. 「開發工具」>「巨集」> 新增「RandEffect」> 貼上程式碼：

Sub RandEffect()
    For i = 1 To ActivePresentation.Slides.Count
        With ActivePresentation.Slides(i).SlideShowTransition
            .AdvanceOnTime = msoTrue
            .AdvanceTime = 0
            .EntryEffect = ppEffectRandom
            .Duration = 1.5
        End With
    Next
End Sub

3. 存為 .pptm > 執行巨集 RandEffect。

全簡報套用隨機切換，但僅限「細微型」效果，「絢麗型」與「動態內容」不在隨機池。完美隨機仍需深入研究。