使用PowerPoint中的VBA功能實(shí)現(xiàn)交互

三、使用PowerPoint中的VBA功能實(shí)現(xiàn)交互1.單選題的設(shè)計(jì)與實(shí)現(xiàn)（1）在幻燈片中先用文本框?qū)芜x題的題目?jī)?nèi)容設(shè)置好，然后打開(kāi)“開(kāi)發(fā)工具”選項(xiàng)卡，在“控件”選項(xiàng)組中單擊“選項(xiàng)按鈕”命令，在編輯區(qū)拖出三個(gè)“選項(xiàng)”按鈕。在“選項(xiàng)”按鈕上右擊，在快捷菜單中選擇“屬性”，打開(kāi)屬性對(duì)話框，將Caption屬性中的值改為：北京、上海、南京。（選擇Font項(xiàng)可改變控件的字體和字號(hào)）。（2）在“控件”選項(xiàng)組中單擊“命令按鈕”命令，在編輯區(qū)拖出三個(gè)“命令”按鈕和一個(gè)標(biāo)簽按鈕，在“屬性”對(duì)話框中分別將三個(gè)命令按鈕的Caption選項(xiàng)改為：重新做、下一題、提交，將標(biāo)簽的Caption屬性中的字符刪除，如圖3-34所示。（3）為“命令”按鈕添加代碼。雙擊“重新做”按鈕，進(jìn)入VBA編程環(huán)境，在其中輸入：OptionButton1.Value=FalseOptionButton2.Value=FalseOptionButton3.Value=FalseLabel2.Caption=""雙擊“提交”按鈕進(jìn)入VBA編程環(huán)境，在其中輸入：IfOptionButton1.Value=TrueThenLabel2.Caption="答對(duì)了！"ElseLabel2.Caption="再想想！"EndIf雙擊“下一題”按鈕，在VBA環(huán)境中輸入：WithSlideShowWindows(1).View.GotoSlide2EndWith圖3-34單選題提示：以上代碼的涵義為在單擊“重新做”按鈕時(shí)，將題目重置，可重新答題。單擊“提交”按鈕時(shí)：如果我們選擇了第一個(gè)答案，提交后會(huì)在標(biāo)簽中顯示“答對(duì)了”，否則顯示“再想想”。單擊“下一題”按鈕時(shí)，則跳到GotoSliden所指向的頁(yè)面。注意：運(yùn)行程序時(shí)必須啟用宏。2.多選題的設(shè)計(jì)與實(shí)現(xiàn)（1）實(shí)現(xiàn)方法同單選題，不過(guò)在多選題里我們選擇的控件為三個(gè)復(fù)選框和三個(gè)命令按鈕，效果如圖3-35所示。（2）雙擊“重新做”按鈕進(jìn)入VBA編程環(huán)境，在VBA環(huán)境中輸入如下代碼：CheckBox1.Value=FalseCheckBox2.Value=FalseCheckBox3.Value=False雙擊“下一題”按鈕，在VBA環(huán)境中輸入：WithSlideShowWindows(1).View.GotoSlide3EndWith雙擊“提交”按鈕，在其中輸入如下代碼：IfCheckBox1.Value=TrueAndCheckBox2.Value=FalseAndCheckBox3.Value=TrueThenMsgBox"正確"ElseMsgBox"錯(cuò)誤"EndIf圖3-35多選題講解：該代碼的涵義為在單擊“提交”按鈕時(shí)：如果選擇了第一個(gè)答案和第三個(gè)答案，“提交”后會(huì)彈出結(jié)果對(duì)話框。3.填空題的設(shè)計(jì)與實(shí)現(xiàn)（1）填空部分用文本框來(lái)接受用戶輸入的信息，在文本框的屬性對(duì)話框中將“value”屬性值刪除。效果如圖3-36所示。圖3-36填空題（2）雙擊“重新做”按鈕進(jìn)入VBA編程環(huán)境，在VBA環(huán)境中輸入如下代碼：TextBox1.Value=""TextBox2.Value=""（1）在PowerPoint中，利用插入形狀制作如圖3-39效果圖中所示的主菜單“宋詞欣賞”，形成“主菜單”組合。（2）選擇“主菜單”組合作為觸發(fā)器。（3）繪制一個(gè)方形作為子菜單,輸入文本，將圖形框與文本框組合在一起形成“子菜單”組合。（4）選中子菜單組合，打開(kāi)“動(dòng)畫(huà)”選項(xiàng)卡，單擊“高級(jí)動(dòng)畫(huà)”選項(xiàng)組中“添加動(dòng)畫(huà)”下方的下拉按鈕，在展開(kāi)的列表中選擇“進(jìn)入”動(dòng)畫(huà)中的“切入”效果。然后在“動(dòng)畫(huà)”選項(xiàng)卡“動(dòng)畫(huà)”選項(xiàng)組中單擊“效果選項(xiàng)”下方的下拉按鈕，在展開(kāi)的列表中選擇方向：“自頂部”。（5）選擇子菜單組合，打開(kāi)“動(dòng)畫(huà)”選項(xiàng)卡，單擊“高級(jí)動(dòng)畫(huà)”選項(xiàng)組中的“動(dòng)畫(huà)窗格”按鈕，彈出“動(dòng)畫(huà)窗格”任務(wù)窗格。在“動(dòng)畫(huà)窗格”任務(wù)窗格中已經(jīng)有了子菜單的任務(wù)格；單擊該任務(wù)格右側(cè)的下拉按鈕，在彈出的下拉列表中選擇“計(jì)時(shí)”選項(xiàng)，彈出“切入”對(duì)話框；單擊“計(jì)時(shí)”選項(xiàng)卡，在“計(jì)時(shí)”選項(xiàng)卡中單擊“觸發(fā)器”按鈕，然后選中出現(xiàn)的“單擊下列對(duì)象時(shí)啟動(dòng)效果”單選按鈕，在右側(cè)的下拉列表中選擇“主菜單”組合圖片，最后單擊“確定”按鈕。（6）用同樣方法，