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

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

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

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

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

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

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

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

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

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

  Sub RandEffect()

  For i = 1 To ActivePresentation.Slides.Count

  With ActivePresentation.Slides(i).SlideShowTransition

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

  '.AdvanceOnTime = msoTrue '也可以選擇定時(shí)切換

  '.AdvanceTime = 5 '定時(shí)時(shí)長(zhǎng)為5秒

  .EntryEffect = ppEffectRandom

  .Duration = 1.5 '切換時(shí)長(zhǎng)1.5秒

  End With

  Next

  End Sub

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

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

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