資源描述：
《在Powerpoint中用VBA制作交互課件.doc》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、在Powerpoint中用VBA制作交互課件隨著我國經(jīng)濟(jì)的騰飛，學(xué)校大都配上了多媒體教室，老師們上課也都用上了課件。由于MicrosoftPowerpoint直觀易用，所以教師們大都用它來制作課件，然而由于Powerpoint相對于其它軟件來說交互性差，所以制作出來的課件總是感覺缺少活力。其實(shí)我們完全可以利用MicrosoftOffice中的VBA編程來制作出交互性強(qiáng)的課件。1．顯示控件工具箱在PowerPoint中選擇菜單“視圖/工具欄/控件工具箱”?；蛟诠ぞ邫谔幱覔?，然后再選中控件工具箱。其中我們
2、常用的有復(fù)選框、文本框、命令按鈕、單選框、標(biāo)簽。（1）復(fù)選框（CheckBox）：可以選擇多個選項(xiàng)，常用來設(shè)計(jì)多選題；（2）文本框（TextBox）：可以輸入文本，常用來設(shè)計(jì)填空題；（3）命令按鈕（CommandButton）：用來確定選擇或輸入，也可設(shè)計(jì)超級鏈接；（4）單選框（OptionButton）：只能選中一個選項(xiàng)，常用來設(shè)計(jì)單選題或判斷題；（5）標(biāo)簽（Label）：用來顯示文字信息。2、在幻燈片中插入控件單擊控件工具箱上的工具按鈕，然后在幻燈片中拖動到適當(dāng)大小即可。右擊控件選擇屬性進(jìn)行屬性設(shè)
3、置，如圖2。3、制作交互課件實(shí)例：（1）制作填空題：首先用文本框輸入題目，再在需要填寫答案的地方放上兩個文本框，在下面插入兩個命令按鈕，并把文本框的text屬性改為空，把命令按鈕的caption屬性分別改為“重新填寫”與“提交答案”，如圖3所示。然后雙擊“重新填寫”按鈕，進(jìn)入VBA編程：在PrivateSubCommandButton1_Click()與EndSub兩行中間輸入如下代碼：TextBox1.Text=""TextBox2.Text=""意思使兩個文本框的text屬性為空，以便重新填寫。雙
4、擊“提交答案”按鈕，在PrivateSubCommandButton2_Click()與EndSub兩行中間輸入：IfTextBox1.Text="150"AndTextBox2.Text="125"Thena=MsgBox("你真棒！是否繼續(xù)",vbYesNo+vbQuestion,"下一題")=vbYesWithSlideShowWindows(1).View.GotoSlide2EndWithElse:a=MsgBox("對不起！你做錯了")EndIf意思是如果兩個文本框填寫的數(shù)分別為150和1
5、25，則會彈出消息框“你真棒！是否繼續(xù)”，如果點(diǎn)“是”則會進(jìn)入第二張幻燈片，如果填錯了則會彈出“對不起！你做錯了”。（2）制作單選題：用文本框輸入題目，在下面插入三個單選框與三個命令按鈕，并把單選框的value屬性設(shè)為false，Caption屬性分別設(shè)為9.99、10.0、10.00。三個命令按鈕的Caption屬性分別設(shè)為“提交答案”、“重新選擇”和“下一題”。另外在右邊的空白處插入一個標(biāo)簽，將它的Caption屬性設(shè)為空。如圖4所示。雙擊“提交答案”按鈕，PrivateSubCommandBut
6、ton1_Click()與EndSub兩行中間輸入如下代碼：IfOptionButton3.Value=TrueThenLabel1.Caption="你真棒!"Else:Label1.Caption="好好想想!"EndIf意思是如果第三個單選框的Value屬性為True,即選擇的是第三個按鈕，則標(biāo)簽顯示為“你真棒！”，否則顯示“好好想想！”。雙擊“重新選擇”按鈕，在PrivateSubCommandButton2_Click()與EndSub兩行中間輸入如下代碼OptionButton1.Valu
7、e=FalseOptionButton2.Value=FalseOptionButton3.Value=FalseLabel1.Caption=""即三個單選框均為不選中狀態(tài)。并將標(biāo)簽的內(nèi)容清空。雙擊“下一題”按鈕，在PrivateSubCommandButton3_Click()與EndSub兩行中間輸入如下代碼：WithSlideShowWindows(1).View.GotoSlide2EndWith也就是單擊下一題可進(jìn)入第2張幻燈片，這里的2可以視情況而定。（3）制作多選題。首先輸入題目，插入
8、四個復(fù)選框和三個命令按鈕，把四個復(fù)選框的Value屬性設(shè)為False即不選中狀態(tài)，把Caption屬性分別設(shè)為2、3、5、9。把三個命令按鈕的Caption屬性分別設(shè)為“提交答案”、“重新選擇”、“下一題”。在右邊空白處插入一個標(biāo)簽，將Caption屬性設(shè)為空。如圖5所示。雙擊“提交答案”按鈕，輸入如下代碼：IfCheckBox1.Value=TrueAndCheckBox2.Value=TrueAndCheckBox3.Value=TrueAndChe
