技術(shù)員聯(lián)盟提供win764位系統(tǒng)下載,win10,win7,xp,裝機(jī)純凈版,64位旗艦版,綠色軟件,免費軟件下載基地!

當(dāng)前位置:主頁 > 教程 > 軟件教程 > PowerPoint教程 >

在PPT2010中設(shè)置幻燈片的隨機(jī)切換

來源:技術(shù)員聯(lián)盟┆發(fā)布時間:2018-10-16 12:04┆點擊:

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

在PPT2010中設(shè)置幻燈片的隨機(jī)切換  三聯(lián)

  在PPT2010中設(shè)置幻燈片的隨機(jī)切換

  在PPT2010中設(shè)置幻燈片的隨機(jī)切換

  這不得不說是2010版本的一個比較大的遺憾,但幸好我們還有VBA,可以彌補(bǔ)這個遺憾,可以使用以下代碼設(shè)置各頁幻燈片使用隨機(jī)的切換方式:

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

  Sub RandEffect()

  For i = 1 To ActivePresentation.Slides.Count

  With ActivePresentation.Slides(i).SlideShowTransition

  .AdvanceOnClick = msoTrue '單擊鼠標(biāo)后切換

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

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

  .EntryEffect = ppEffectRandom

  .Duration = 1.5 '切換時長1.5秒

  End With

  Next

  End Sub

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

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

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