移動版 - 最新教程 - 熱門教程 - 推薦教程 - 熱門資源 分享高質量的原創Office教程、Word教程、Excel教程、PPT教程。

旺彩四肖中特图库:使用VBA程序制作隨機播放PPT幻燈片的的方法

發布時間:2015-05-05 來源:Office辦公助手(88862豪哥四肖中特 www.jjfyo.com)

88862豪哥四肖中特 www.jjfyo.com 在播放PPT演示文稿時,有時需要對幻燈片的播放進行控制。如,在制作隨機出題系統時,第一張幻燈片放置控制按鈕,其后的幻燈片中放置題目,單擊按鈕將能夠隨機顯示某張幻燈片中的題目,單擊題目幻燈片中的按鈕將能返回標題頁。下面介紹使用VBA程序制作隨機播放PPT幻燈片的的方法。

1、啟動PowerPoint 2013并打開演示文稿,該演示文稿已經完成了標題頁的制作和題目的添加。使用技巧429介紹的方法在幻燈片中添加一個按鈕控件,并在“屬性”面板中更改控件的“Caption”屬性值,如圖1所示。

使用VBA程序制作隨機播放PPT幻燈片的的方法

圖1 更改控件的“Caption”屬性值

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

使用VBA程序制作隨機播放PPT幻燈片的的方法

圖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所示。

使用VBA程序制作隨機播放PPT幻燈片的的方法

圖3 復制按鈕并設置其“Caption”屬性

4、右擊幻燈片中的按鈕控件,選擇快捷菜單中的選擇“查看代碼”命令。在打開的Visual Basic編輯器的代碼窗口中為按鈕添加Click事件響應程序,如圖4所示。具體的程序代碼如下。

使用VBA程序制作隨機播放PPT幻燈片的的方法

圖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所示,將跳轉回出題頁。

使用VBA程序制作隨機播放PPT幻燈片的的方法

圖5 顯示出題頁

使用VBA程序制作隨機播放PPT幻燈片的的方法

圖6 隨機出現題目

本文已經收錄至:《Office 2013應用技巧實例大全》 - Office2013高級應用篇

更多相關閱讀

    相關教程
    專題教程推薦
    熱門資源下載