在最新的PowerPoint 2010版本中，增加了許多令人眼花繚亂并且驚嘆不已的幻燈片切換效果，然而細心的用戶可以發現，其中原有版本中所包含的“隨機切換效果”的選項現在消失了，也就是說用戶必須為各頁幻燈片指定一個固定的切換方式，而不能使用各頁隨機出現不同的切換方式。

　　在PPT2010中設置幻燈片的隨機切換

　　在PPT2010中設置幻燈片的隨機切換

　　這不得不說是2010版本的一個比較大的遺憾，但幸好我們還有VBA，可以彌補這個遺憾，可以使用以下代碼設置各頁幻燈片使用隨機的切換方式：

　　————————————————————————————

　　Sub RandEffect()

　　For i = 1 To ActivePresentation.Slides.Count

　　With ActivePresentation.Slides(i).SlideShowTransition

　　.AdvanceOnClick = msoTrue '單擊鼠標后切換

　　'.AdvanceOnTime = msoTrue '也可以選擇定時切換

　　'.AdvanceTime = 5 '定時時長為5秒

　　.EntryEffect = ppEffectRandom

　　.Duration = 1.5 '切換時長1.5秒

　　End With

　　Next

　　End Sub

　　————————————————————————————

　　稍稍令人遺憾的是，以上代碼所能提供的隨機效果僅僅是“細微型”中的這些切換效果，而那些更炫目的“華麗型”和“動態內容”切換效果并未出現在隨機的結果中。如何才能讓這個隨機切換功能更完美，我還需要更多時間來深入研究。

　　點擊左側的目錄欄->右鍵->投影片切換，這時右面會出現動畫選項，選擇最后一項“隨機切換”再選擇“套用至所有投影”片就OK了