久久96国产精品久久久-久久发布国产伦子伦精品-久久精品国产精品青草-久久天天躁夜夜躁狠狠85麻豆

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

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

PowerPoint 2010中實(shí)現(xiàn)隨機(jī)播放的方法

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

　　PowerPoint 2010相比以前版本的PPT無(wú)論實(shí)在界面和性能上都大大的提高了，但是不幸的是竟然沒(méi)有隨機(jī)切換效果(隨機(jī)播放)的功能了，有時(shí)候需要用卻沒(méi)辦法實(shí)現(xiàn)很讓人糾結(jié)。不過(guò)好在我們可以借助VBS腳本(宏)實(shí)現(xiàn)這個(gè)功能。

　　首先把PPT都做好，然后打開(kāi)選項(xiàng)，自定義功能區(qū)，把開(kāi)發(fā)工具勾上。

　　然后在開(kāi)發(fā)工具選項(xiàng)卡中選“宏”，新建一個(gè)，把下面的代碼貼進(jìn)去：

Sub RandEffect()
    For i = 1 To ActivePresentation.Slides.Count
        With ActivePresentation.Slides(i).SlideShowTransition
            .AdvanceOnTime = msoTrue     '也可以選擇定時(shí)切換
            .AdvanceTime = 0             '定時(shí)時(shí)長(zhǎng)為0秒
            .EntryEffect = ppEffectRandom
            .Duration = 1.5               '切換時(shí)長(zhǎng)1.5秒
        End With
    Next
End Sub  

　　保存成pptm格式，然后運(yùn)行點(diǎn)宏，選 RandEffect，運(yùn)行。

　　OK，全部的幻燈片都隨機(jī)播放了，不過(guò)缺陷是只能隨機(jī)到很基礎(chǔ)的特效，很高端的那種還不行。