如何使用VBA程序制作隨機(jī)播放PPT幻燈片

　　在播放PPT演示文稿時(shí)，有時(shí)需要對(duì)幻燈片的播放進(jìn)行控制。如，在制作隨機(jī)出題系統(tǒng)時(shí)，第一張幻燈片放置控制按鈕，其后的幻燈片中放置題目，單擊按鈕將能夠隨機(jī)顯示某張幻燈片中的題目，單擊題目幻燈片中的按鈕將能返回標(biāo)題頁(yè)。下面小編給大家介紹使用VBA程序制作隨機(jī)播放PPT幻燈片的的方法。

　　1、啟動(dòng)PowerPoint 2013并打開(kāi)演示文稿，該演示文稿已經(jīng)完成了標(biāo)題頁(yè)的制作和題目的添加。使用技巧429介紹的方法在幻燈片中添加一個(gè)按鈕控件，并在“屬性”面板中更改控件的“Caption”屬性值。

　　2、右擊幻燈片中的按鈕控件，選擇快捷菜單中的“查看代碼”命令，在打開(kāi)的Visual Basic編輯器的代碼窗口中輸入程序代碼。具體的程序代碼如下。

　　01 Private Sub CommandButton1_Click()

　　02 Dim i As Integer,n As Integer'定義變量

　　03 i=Int((6*Rnd)+1)'獲取1～6間的隨機(jī)數(shù)

　　04 Randomize'初始化隨機(jī)數(shù)

　　05 i=Int((6*Rnd)+1)'初始化后再次生成1～6間的隨機(jī)數(shù)

　　06 n=i+1'向變量n賦值，該值為幻燈片的編號(hào)

　　07 With SlideShowWindows(1)

　　08.View.GotoSlide n'跳轉(zhuǎn)到指定編號(hào)的幻燈片

　　09 End With

　　10 End Sub

　　3、復(fù)制標(biāo)題頁(yè)中的按鈕，將其粘貼到第二張幻燈片中，然后在“屬性”面板中更改控件的“Caption”屬性值。

　　4、右擊幻燈片中的按鈕控件，選擇快捷菜單中的選擇“查看代碼”命令。在打開(kāi)的Visual Basic編輯器的代碼窗口中為按鈕添加Click事件響應(yīng)程序。具體的程序代碼如下。

　　01 Private Sub CommandButton1_Click()

　　02 With SlideShowWindows(1)

　　03 .View.GotoSlide 1'跳轉(zhuǎn)到第一張幻燈片

　　04 End With

　　05 End Sub

　　5、將第二張幻燈片中的按鈕復(fù)制到其后的幻燈片中，使用與步驟④相同的方法為這些按鈕添加事件響應(yīng)程序后，按“F5”鍵播放幻燈片，在標(biāo)題頁(yè)中單擊“出題”按鈕，PowerPoint將隨機(jī)跳轉(zhuǎn)到其后的一張幻燈片顯示題目;單擊題目頁(yè)中的“回到首頁(yè)”按鈕，如圖6所示，將跳轉(zhuǎn)回出題頁(yè)。

　　希望通過(guò)以上方法步驟大家可以學(xué)會(huì)制作隨機(jī)播放PPT幻燈片的方法。