PPT實現隨機選題
設計主題抽取界面
打開PPT2010，將演示文稿保存為啟用宏的PPT演示文稿格式(即..pptm格式，帶有宏代碼的演示文稿必須保存為這種格式)。設計第壹張幻燈片的選題界面，插入三個文本框，寫好必要的文字，然後通過？開發工具？選項卡上，插入三個命令按鈕控件，右鍵單擊這些控件，然後選擇？屬性？命令，打開它們？屬性？對話框，在？名字？後來命令按鈕的名稱改為:啟動、停止、打開提取的主題，然後在Caption後填寫按鈕上顯示的名稱(可以隨意大寫，和我這裏設置的按鈕名稱壹樣)，設置字體、字號、背景色、樣式。
再插入三個文本框控件，也是在？屬性？對話框中，將它們的名稱更改為:提取框、結果框和提取的主題。放？提取箱？放？開始？然後呢。停下來？在命令按鈕控件之間，放置？結果框？放？妳選了什麽號碼？在文本中，替換？妳畫出題目了嗎？拖動到合適的大小，放在下面(圖1)。
然後新建壹張幻燈片，設計選定主題放置界面，在上面設計壹個鏈接，返回選定主題界面的幻燈片。復制多份此幻燈片，在相應的幻燈片上輸入相應的主題，第壹個主題在第二張幻燈片上，第二個主題在第三張幻燈片上，以此類推。
編寫宏代碼
接下來，按ALT+F11打開VBA宏編輯窗口，並雙擊？Slide1？，將以下代碼復制到右窗格中並保存。
私有子start _Click()
停下來。“Enabled = True”停止按鈕當前處於活動狀態。
將a作為整數變暗
使不規則化
做
A = Fix(Rnd * 10+1)'使用隨機函數。
提取框. text = a
結果框。文本= " "
多項活動
環
末端接頭
私有Sub stop _Click()
結果框。Text =提取框。文本
所選主題=所選主題+提取框+"# " '主題標簽以#分隔。
停下來。啟用=假
結束
末端接頭
Private Sub打開提取的topic _Click()
ActivePresentation幻燈片放映窗口_
. view.goto slideval(提取框。Text+1)
末端接頭
隨機選擇問題並打開。
主題選定後，播放幻燈片，點擊第壹張？開始？按鈕，然後從1到10這十個數字會隨機快速顯示在下面的文本框中。點擊？停下來？按鈕，數字停止滾動，顯示提取的問題編號，同時在頂部給出。妳選擇了問題X嗎？提示，下面？妳畫出題目了嗎？所有選定的主題編號都顯示在中。點擊下方？打開提取的題目？按鈕切換到主題選擇幻燈片。玩家完成話題後，點擊返回鏈接返回話題選擇頁面，繼續為下壹位玩家選擇話題(圖2)。
提示:在幻燈片放映狀態下，可以選擇三個文本框控件中的文本並刪除，達到清除的目的。
代碼圖
宏代碼
私有子start _Click()
停下來。“Enabled = True”停止按鈕當前處於活動狀態。
將a作為整數變暗
使不規則化
做
A = Fix(Rnd * 10+1)'使用隨機函數。
提取框. text = a
結果框。文本= " "
多項活動
環
末端接頭
私有Sub stop _Click()
結果框。Text =提取框。文本
所選主題=所選主題+提取框+"# " '主題標簽以#分隔。
停下來。啟用=假
結束
末端接頭
Private Sub打開提取的topic _Click()
ActivePresentation幻燈片放映窗口_
. view.goto slideval(提取框。Text+1)
末端接頭