vba在powerpoint課件中的應(yīng)用

《vba在powerpoint課件中的應(yīng)用》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。

1、萬方數(shù)據(jù)2006年3月第5卷第1期重慶文理學(xué)院學(xué)報(自然科學(xué)版)JournalofChongqingUniversityofArtsandSciences(NatureSciencesEdition)M,ill"．，2006V01．5No．1VBA在PowerPoint課件中的應(yīng)李文江(重慶文理學(xué)院教務(wù)處，重慶永川402168)用[摘要]VBA是為Microsoft應(yīng)用程序提供的宏程序設(shè)計語言．筆者通過3個實例說明將它應(yīng)用在PowerPoint課件中，可使PowerPoint課件具有交互性、靈活性和趣味性．[

2、關(guān)鍵詞]VBA；PowerPoint課件；程序代碼[中圖分類號]TP317．4[文獻(xiàn)標(biāo)識碼]A[文章編號]1671—7538(2006)01—0027—03隨著多媒體技術(shù)的迅速發(fā)展與學(xué)校多媒體計算機使用的普及，教師運用多媒體教學(xué)越來越普遍．PowerPoint是一種使用廣泛的課件制作工具，它具有使用簡便、兼容性好的優(yōu)點，深受廣大教師的喜愛．但也有一些教師認(rèn)為它功能太簡單，不能滿足多媒體課件的交互要求．實際上，有些教師只用了PowerPoint的一些基本功能，根本沒有或很少用到功能強大的“VBA”．教師如果能充

3、分應(yīng)用VBA這一工具，能使制作的PowerPoint課件更具交互性、靈活性和趣味性．1VBA基本知識1．1VBA簡介VBA(VisualBasicforApplications)是由微軟開發(fā)的新一代標(biāo)準(zhǔn)宏語言，用于定制和擴展Office功能的系統(tǒng)，是功能強大的Office套件的一部分．它提供了面向?qū)ο蟮某绦蛟O(shè)計方法和相當(dāng)完整的程序語言，并采用與VisualBasic完全相同的編程環(huán)境．1．2進(jìn)入VBA編程環(huán)境(1)打開PowerPoint，建立一個空白幻燈片．(2)選擇菜單“視圖／32具欄／控件工具箱”，此時

4、在桌面上顯示控件工具箱(如圖1)．圖1把鼠標(biāo)移動到控件工具箱的任意一個按鈕上，稍微停頓，就可以顯示出該按鈕的名稱．常用按鈕如下：囔i復(fù)選框(ch。。kBox)：可以選擇多個選項；強文本框(Te。tBox)：輸入文本；，?掣命令按鈕(c。。m蛐dButl0。)：用來確定選擇或輸入，也可設(shè)計超級鏈接；■—．0I黲單選框(OptionButton)：只能選中一個選項；瀵b示簽(Label)：用來顯示文字信息；零其它控件：單擊選擇其它控件．(3)單擊控件工具箱上的工具按鈕，然后在幻燈片中拖動到適當(dāng)大小即可插入控件．(

5、4)雙擊幻燈片中的控件或用菜單命令“工具，宏／Visualbasic編輯器”即可進(jìn)入VBA編程狀態(tài)，就可以在“屬性”窗口中設(shè)置控件的各種屬性，在“代碼”窗口中對控件編程．2VBA編程應(yīng)用下面通過3個不同類型的VBA編程實例來實現(xiàn)PowerPoint課件的交互性、靈活性和趣味性．2．1增強課件交互性的實例——拖放式選擇題交互性是指人和計算機能“對話”，以便進(jìn)行人工控制．PowerPoint課件中交互性的引入，改變了課件呆板、單一的面孔．教師在上新課前復(fù)習(xí)上堂課所學(xué)的知識，如出復(fù)習(xí)題，可以是選擇題、填空題、判斷題

6、等．下面通過一個“拖放式選擇題”實例來看它的實現(xiàn)過程：按住選擇的答案，拖放到指定的位置，按“判斷”按鈕，自動判斷正誤，如圖2．如果正確就發(fā)出“正確(right．wav)”的聲音，并彈出消息框1(如圖3)；如果錯誤就發(fā)出“錯誤(wrong．wav)”的聲音，并彈出消息框2(如圖4)．*[收稿日期]2005—09—22[作者簡介】李文江(1978一)，男，重慶萬州人，主要從事多媒體、計算機網(wǎng)絡(luò)與數(shù)據(jù)庫的應(yīng)用研究27萬方數(shù)據(jù)制作過程：在幻燈片中放置”霹j文本框(T。。tBoxl)、苴謬j命令按鈕(c。m。。ndBu

7、tt。。1)、j譬標(biāo)簽(hb。11、2)、聲音播放(WindowsMediaPlayerl)控件”．TextBoxl的Text屬性設(shè)置為空；CommandButtonl的Captiort屬設(shè)置為“判斷”；Labell的CaptionI禹性設(shè)置為“A：北京”，Label2的Caption屬性設(shè)置為“B：天津”；WindowsMediaPlayerl的Height和Width屬性都設(shè)置為1．這些控件的其它屬性可以為默認(rèn)設(shè)置．程序代碼如下：“A：北京”選項拖動程序代碼：PrivateSubLabell—MouseU

8、p(ByValButtonAsInteger，ByValShiftAsInteger，ByValXAsSingle，ByValYAsSingle)DimdownXAsIntegerDimdownyAsIntegerLabell．Left=X—downX+Labell．LeftLabell．Top=Y—downy+1．a(chǎn)bell．TopIfLabell．Left>324AndLabell．Left<4