基于VBA的PowerPoint2016增強(qiáng)冬奧知識及時交互性的應(yīng)用研究

王 清

（無錫商業(yè)職業(yè)技術(shù)學(xué)院，江蘇 無錫 214153）

1 添加VBA開發(fā)工具

打開空白的PPT2016頁面，選擇“文件”下拉菜單中的“選項”，在彈出的對話框中左側(cè)列表中選擇“自定義功能區(qū)”，然后在右側(cè)勾選“開發(fā)工具”復(fù)選框，單擊“確定”。這時候在PPT2016的菜單選項中就多了一個“開發(fā)工具”菜單選項[1]。

在PPT的標(biāo)題處輸入“北京冬奧會知識有獎問答”，副標(biāo)題處輸入“主辦：某某大學(xué)生社團(tuán)服務(wù)中心”。然后對標(biāo)題和副標(biāo)題的字體樣式進(jìn)行設(shè)置，并設(shè)置幻燈片的版式，再插入4張空白的“標(biāo)題和內(nèi)容”版式幻燈片。

2 制作選擇題

（1）在第二張幻燈片標(biāo)題處輸入文字“一、單選題”，在文本框內(nèi)輸入試題文字“北京冬奧會在哪一年舉辦？”。

（2）單擊“開發(fā)工具”→“控件”→“選項按鈕”圖標(biāo)，在試題下方繪制出該按鈕。選中該按鈕，右擊，在彈出的快捷菜單中選擇“屬性表”命令，在打開的“屬性”對話框中，將“Caption”的值改為“A:”，根據(jù)實際應(yīng)用需求還可以修改其他的屬性設(shè)置，比如字體、字號、顏色、按鈕的寬度、高度等等。

（3）在選項按鈕旁添加一個文本框，輸入文字“2000年”。

（4）按照同樣方法添加B、C、D選項按鈕，并修改它們的“Caption”值分別為“B:”“C:”“D:”，添加相應(yīng)的文本框并輸入文字分別為“2008年”“2020年”“2022年”，然后調(diào)整各個按鈕和文本框到合適的位置。

（5）單擊“開發(fā)工具”→“控件”→“命令按鈕”圖標(biāo)，在試題右方繪制出該按鈕。選中該按鈕，右擊，在彈出的快捷菜單中選擇“屬性表”命令，在打開的“屬性”對話框中，將“Caption”的值改為“提交”，并在屬性對話框中設(shè)置其字體、字號、顏色等。

（6）選中“檢驗”按鈕右擊，在彈出的快捷菜單中選擇“查看代碼”，在打開的代碼窗口中輸入如下代碼：

注意：這里代碼If OptionButton4.Value = True表示設(shè)置該選擇題的正確答案是第4個按鈕，然后選擇每個選項會彈出相應(yīng)的提示。

（7）在第三張“標(biāo)題和內(nèi)容”版式的幻燈片標(biāo)題處輸入文字“二、多選題”，在文本框內(nèi)輸入試題文字“下列哪些城市曾經(jīng)舉辦過冬奧會？”。

（8）單擊“開發(fā)工具”→“控件”→“復(fù)選框”圖標(biāo)，在試題下方繪制出該復(fù)選框。選中該按鈕，右擊，在彈出的快捷菜單中選擇“屬性表”命令，在打開的“屬性”任務(wù)窗格中，將“Caption”的值改為“A:”，根據(jù)實際應(yīng)用需求還可以修改其他的屬性設(shè)置。在復(fù)選框旁添加一個文本框，在其中輸入文字“韓國-平昌”。

（9）按照同樣方法添加B、C、D復(fù)選框，并修改它們的“Caption”值分別為“B:”“C:”“D:”。添加相應(yīng)的文本框并輸入文字分別為“俄羅斯-索契”“意大利-都靈”“美國-鹽湖城”，然后調(diào)整各個按鈕和文本框到合適的位置。

（10）單擊“開發(fā)工具”→“控件”→“命令按鈕”圖標(biāo)，在試題右方繪制出該按鈕。選中該按鈕，右擊，在彈出的快捷菜單中選擇“屬性表”命令，在打開的“屬性”對話框中，將“Caption”的值改為“提交”。

（11）選中“提交”按鈕右擊，在彈出的快捷菜單中選擇“查看代碼”，在打開的代碼窗口中輸入如下代碼：

注意：這里代碼Check Box1.Value = Tr ue A nd CheckBox2.Value = True And CheckBox3.Value = True And CheckBox4.Value = True表示設(shè)置該多選題的正確答案是同時選擇4個復(fù)選框按鈕，然后選擇每個選項會彈出相應(yīng)的提示。

（12）保存該演示文稿，放映幻燈片查看多選題的效果，按照相同的方式可以制作更多的多選題。

3 制作填空題

（1）在第四張“標(biāo)題和內(nèi)容”版式的幻燈片標(biāo)題處輸入文字“三、填空題”，在文本框內(nèi)輸入試題文字“中國第一個獲得冬奧會冠軍的運(yùn)動員是 。”。

（2）單擊“開發(fā)工具”→“控件”→“文本框”圖標(biāo)，在試題文字中需要填空的地方繪制出該文本框。

（3）單擊“開發(fā)工具”→“控件”→“命令按鈕”圖標(biāo)，在試題右方繪制出該按鈕。選中該按鈕，右擊，在彈出的快捷菜單中選擇“屬性表”命令，在打開的“屬性”任務(wù)窗格中，將“Caption”的值改為“提交”。

（4）選中“提交”按鈕右擊，在彈出的快捷菜單中選擇“查看代碼”，在打開的代碼窗口中輸入如下代碼：

注意：這里代碼TextBox1.Value = “楊揚(yáng)”表示設(shè)置該填空題的正確答案是“楊揚(yáng)”，在文本框中填入答案后單擊“提交”按鈕，會彈出相應(yīng)的提示，如圖4所示。

（5）保存該演示文稿，放映幻燈片查看填空題的效果，按照相同的方式可以制作更多的填空題。

4 制作是非題

（1）在第五張“標(biāo)題和內(nèi)容”版式的幻燈片標(biāo)題處輸入文字“四、是非題”，在文本框內(nèi)輸入試題文字“北京是第一個也是唯一舉辦過夏季奧運(yùn)會，又舉辦冬季奧運(yùn)會的城市?！薄?/p>

（2）單擊“開發(fā)工具”→“控件”→“選項按鈕”圖標(biāo)，在試題下方繪制出該按鈕。選中該按鈕，右擊，在彈出的快捷菜單中選擇“屬性”命令，在打開的“屬性”任務(wù)窗格中，將“Caption”的值改為空。

（3）在選項按鈕旁添加一個文本框，在其中輸入文字“是”，按照同樣方法再添加一個選項按鈕，并修改它的“Caption”值為空，添加相應(yīng)的文本框并輸入“非”。

（4）單擊“開發(fā)工具”→“控件”→“命令按鈕”圖標(biāo)，在試題右方繪制出該按鈕。選中該按鈕，右擊，在彈出的快捷菜單中選擇“屬性”命令，在打開的“屬性”任務(wù)窗格中，將“Caption”的值改為“提交”。

（5）選中“提交”按鈕右擊，在彈出的快捷菜單中選擇“查看代碼”，在打開的代碼窗口中輸入如下代碼：

注意：這里代碼OptionButton1.Value = True表示設(shè)置該是非題的正確答案選項是第1個按鈕，單擊“提交”按鈕，會彈出相應(yīng)的提示，如圖4所示。

（6）保存該演示文稿，放映幻燈片查看是非題的效果，按照相同的方式可以制作更多的是非題。

最后，把所有題目添加和設(shè)置完成之后，對所有幻燈片頁面的字體、顏色等進(jìn)行設(shè)置，設(shè)置幻燈片的主題和背景，添加“動畫”和“切換”效果。本案例中只以4種題型作為范例進(jìn)行講解，當(dāng)然可以根據(jù)需要添加和設(shè)置更多的不同類型的題目。

通過以上事例我們發(fā)現(xiàn)，在PPT中VBA強(qiáng)大功能的幫助下[3]，可以讓奧運(yùn)會知識的宣傳及時有效，而且能實時交互，在學(xué)習(xí)相關(guān)知識的同時，還能實時互動，既有趣味性，也能提升人們參與的熱情。