萬盛學電腦網

您现在的位置: 萬盛學電腦網 >> 辦公室軟體 >  >> PowerPoint 教學 >> PPT 進階技巧

PowerPoint 2010 找回隨機切換效果:VBA 巨集一鍵套用隨機轉場

PPT 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

使用方法

  1. 「檔案」>「選項」>「自訂功能區」> 勾選「開發工具」。
  2. 「開發工具」>「巨集」> 新增 > 貼上碼 > 存為 .pptm(含巨集簡報)。
  3. 執行巨集 RandEffect,全簡報套用隨機切換。

限制:僅能隨機套用「細微型」切換效果,「絢麗型」與「動態內容」類不在隨機池中。若需完美隨機仍待進一步研究。

另可在「投影片切換」面板最下方找到「隨機切換」並「套用至所有投影片」(視版本而定)。

copyright © 萬盛學電腦網 all rights reserved