使用VBA程序制作隨機播放PPT幻燈片的的方法
1、啟動PowerPoint 2013并打開演示文稿，該演示文稿已經完成了標題頁的制作和題目的添加。使用技巧429介紹的方法在幻燈片中添加一個按鈕控件，并在“屬性”面板中更改控件的“Caption”屬性值，如圖1所示。
圖1 更改控件的“Caption”屬性值
2、右擊幻燈片中的按鈕控件，選擇快捷菜單中的“查看代碼”命令，在打開的Visual Basic編輯器的代碼窗口中輸入程序代碼，如圖2所示。具體的程序代碼如下。
圖2 在代碼窗口中輸入程序代碼
01 Private Sub CommandButton1_Click()
02 Dim i As Integer,n As Integer'定義變量
03 i=Int((6*Rnd)+1)'獲取1～6間的隨機數
04 Randomize'初始化隨機數
05 i=Int((6*Rnd)+1)'初始化后再次生成1～6間的隨機數
06 n=i+1'向變量n賦值，該值為幻燈片的編號
07 With SlideShowWindows(1)
08.View.GotoSlide n'跳轉到指定編號的幻燈片
09 End With
10 End Sub
3、復制標題頁中的按鈕，將其粘貼到第二張幻燈片中，然后在“屬性”面板中更改控件的“Caption”屬性值，如圖3所示。
圖3 復制按鈕并設置其“Caption”屬性
4、右擊幻燈片中的按鈕控件，選擇快捷菜單中的選擇“查看代碼”命令。在打開的Visual Basic編輯器的代碼窗口中為按鈕添加Click事件響應程序，如圖4所示。具體的程序代碼如下。
圖4 為按鈕添加Click事件響應程序
01 Private Sub CommandButton1_Click()
02 With SlideShowWindows(1)
03 .View.GotoSlide 1'跳轉到第一張幻燈片
04 End With
05 End Sub
5、將第二張幻燈片中的按鈕復制到其后的幻燈片中，使用與步驟④相同的方法為這些按鈕添加事件響應程序后，按“F5”鍵播放幻燈片，在標題頁中單擊“出題”按鈕，如圖5所示，PowerPoint將隨機跳轉到其后的一張幻燈片顯示題目;單擊題目頁中的“回到首頁”按鈕，如圖6所示，將跳轉回出題頁。
圖5 顯示出題頁
圖6 隨機出現(xiàn)題目