【正文】 果給按鈕加上提示文字，這樣別人使用時(shí)就會(huì)感覺到方便。這個(gè)效果在 方正奧思、Authware、flash等交互性強(qiáng)的制作工具中很容易實(shí)現(xiàn)，但在交互性差的PowerPoint中能否實(shí)現(xiàn)呢？經(jīng)過一番探究，筆者發(fā)現(xiàn)原來在PowerPoint中也可以實(shí)現(xiàn)提示文字功能，并且非常簡(jiǎn)單。具體方法如下：選中按鈕，單擊右鍵，選擇“編輯超級(jí)鏈接”項(xiàng)（如沒有“編輯超級(jí)鏈接”項(xiàng)，則選擇“插入超級(jí)鏈接”項(xiàng)），這時(shí)會(huì)彈出“編輯超級(jí)鏈接”對(duì)話框，再單擊 [屏幕提示]按鈕，彈出“設(shè)置超鏈接屏幕提示”對(duì)話框（圖5）。此時(shí)，我們只要在“屏幕提示文字”欄中輸入需要提示的文字信息即可。圖5（四）用VBA實(shí)現(xiàn)課件中的智能交互PowerPoint中的VBA可以實(shí)現(xiàn)很多復(fù)雜的交互，但很多老師面對(duì)VBA編程，都會(huì)覺得無從下手。所以本期我們?yōu)榇蠹野才帕艘粋€(gè)關(guān)于PowerPoint中VBA的小專題，以后在課件中實(shí)現(xiàn)交互就不會(huì)那么費(fèi)勁了。VBA基礎(chǔ)說到VBA編程，就不得不提到控件工具箱，我們需要利用其中的控件搭建需要的環(huán)境。1．顯示控件工具箱　 在PowerPoint中選擇菜單“視圖/工具欄/控件工具箱”。2．控件工具箱（如圖1）中常用按鈕的介紹（1）復(fù)選框（CheckBox）：可以選擇多個(gè)選項(xiàng)，常用來設(shè)計(jì)多選題；（2）文本框（TextBox）：可以輸入文本，常用來設(shè)計(jì)填空題；（3）命令按鈕（CommandButton）：用來確定選擇或輸入，也可設(shè)計(jì)超級(jí)鏈接；（4）單選框（OptionButton）：只能選中一個(gè)選項(xiàng)，常用來設(shè)計(jì)單選題或判斷題；（5）標(biāo)簽（Label）：用來顯示文字信息。3．插入控件的方法　 單擊控件工具箱上的工具按鈕，然后在幻燈片中拖動(dòng)到適當(dāng)大小即可。4．進(jìn)入VBA的方法　 雙擊幻燈片中的控件或用菜單命令“工具/宏/Visual basic編輯器”即可進(jìn)入VBA編程狀態(tài)。5．控件的主要屬性及設(shè)置方法　 進(jìn)入VBA后，需要在“屬性”窗口中對(duì)控件的屬性進(jìn)行設(shè)置。如果沒有出現(xiàn)“屬性”窗口，按F4鍵即可調(diào)出該窗口。下面我們就不同的控件，來說明常用屬性的設(shè)置方法?！。?）復(fù)選框　 AutoSize：有兩個(gè)值，True表示根據(jù)字的多少調(diào)整復(fù)選框的大小，F(xiàn)alse表示復(fù)選框?yàn)楣潭ù笮?；BackColor：設(shè)置復(fù)選框的背景顏色，單擊該屬性框出現(xiàn)下拉按鈕，選擇“調(diào)色板”選項(xiàng)卡后選擇顏色；Caption：控件的名稱，把默認(rèn)值刪除再重新輸入新名稱；Font：設(shè)置字體、字號(hào)及字形，單擊該屬性框出現(xiàn)按鈕，單擊該按鈕出現(xiàn)字體對(duì)話框，再在對(duì)話框中設(shè)置；Forecolor：設(shè)置字的顏色，設(shè)置方法同BackColor；Height：復(fù)選框的高度，直接輸入數(shù)字即可；Width：復(fù)選框的寬度，直接輸入數(shù)字即可；Value：復(fù)選框的值，True為選中，F(xiàn)alse則相反（2）文本框　　 AutoSize、BackColor、Font、ForeColor、Height、Width等屬性的設(shè)置方法同復(fù)選框；Value：文本框的值，用來保存輸入的文本；TextAlign：設(shè)置文本對(duì)齊方式。（3）單選框　　 屬性設(shè)置同復(fù)選框。（4）標(biāo)簽　　 除Value外，其他同復(fù)選框。（5）命令按鈕　　 同標(biāo)簽。6．消息框MsgBox的功能我們常用消息框顯示一些交互的信息，如圖7所示的消息框用下面的語句可實(shí)現(xiàn)：Msgbox(這是一個(gè)例題,VbYesNo,示例)圖7多行文本的制作在使用PowerPoint制作幻燈片時(shí)，會(huì)遇到這樣的問題：一個(gè)圖文并茂的幻燈片，左面是圖，右面是說明文字，文字內(nèi)容過多，不能全部展示；又如，產(chǎn)品演示，分成若干頁，上翻下翻十分不便，放在一頁又受版面限制，容納不下……其實(shí)可以用“控件工具箱”來解決，具體實(shí)現(xiàn)如下：1．新建一個(gè)幻燈片，選擇所需版面。2．打開“控件箱工具箱”點(diǎn)擊[視圖]→[工具欄]→[控件工具箱]，或在任意工具欄或菜單欄上擊鼠標(biāo)右鍵，選擇“控件工具箱”。3． 插入“文字框”控件圖8 圖9選擇“控件工具箱”中“文字框”選項(xiàng)（如圖8），在編輯區(qū)按住鼠標(biāo)左鍵拖拉出一個(gè)文本框，調(diào)整位置及大小。4． 設(shè)置“文字框”屬性在“文字框”上擊鼠標(biāo)右鍵，選擇“屬性”，彈出“文字框”屬性窗口（如圖9），在屬性窗口中對(duì)文字框的一些屬性進(jìn)行設(shè)置。其中：EnterKeyBehavior屬性：設(shè)為True時(shí)允許使用回車鍵換行。MultiLine屬性：設(shè)為True時(shí)允許輸入多行文字。ScrollBars屬性：利用滾動(dòng)條來顯示多行文字內(nèi)容，其中1fmScrollBarsHorzontal為水平滾動(dòng)條；2fmScrollBarsVertical為垂直滾動(dòng)條；3fmScrollBarsBoth為水平滾動(dòng)條與垂直滾動(dòng)條均存在。當(dāng)文字不超出文字框時(shí)，滾動(dòng)條設(shè)置無效，當(dāng)文字超出文字框時(shí)，則出現(xiàn)一個(gè)可拖動(dòng)的滾動(dòng)條（如圖10）。圖10其他屬性可根據(jù)個(gè)人需要進(jìn)行設(shè)置，比如BackColor用來設(shè)置文字框的背景顏色，TextAlign用來設(shè)置文字對(duì)齊方式等。要實(shí)現(xiàn)滾動(dòng)條對(duì)文本的控制，必須設(shè)置EnterKeyBehavior屬性為True，MultiLine屬性為True，并按需設(shè)置ScrollBars屬性。5．輸入文字框內(nèi)容右擊“文字框”，選擇[文字框 對(duì)象]→[編輯]（如圖11），即可進(jìn)行文字內(nèi)容的輸入，或按[Ctrl+V]把剪貼板上的文字拷貝到文字框中。圖116．文本編輯完之后，在文字框外任意處單擊左鍵退出編輯狀態(tài)。至此，一個(gè)文字可以隨滾動(dòng)條上下拖動(dòng)而移動(dòng)的文本框就完成了。多選題的制作1． 題目的設(shè)計(jì)同單選題2． 選項(xiàng)：用復(fù)選框（CheckBox)，其他設(shè)置同單選題。3． [查看答案]命令按鈕：因?yàn)槭嵌噙x題，答案有多個(gè)，所以要書寫多個(gè)條件，條件之間用and連接，表示同時(shí)滿足這幾個(gè)條件，例如第一、三、五的選項(xiàng)是正確的，則需要輸入如下語句：　　If =True And =True And =True Then　　給出正確的提示信息同單選題　　else　　給出錯(cuò)誤的提示信息同單選題　　end if填空題的制作1．題目的設(shè)置同單選題，填空的地方用文本框。2．判斷正誤：因?yàn)槭翘羁疹}，所填答案是文本，所以條件書寫為：　　if =正確的文本 then 給出正確的提示信息同單選題　　else　　給出錯(cuò)誤的提示信息同單選題　　end if　　注意：正確的文本一定要用半角雙引號(hào)括起來，如幾個(gè)空一起判斷，方法同多選題3．[重新填空]命令按鈕：需要完成如下語句的設(shè)置：　　Private Sub CommandButton2_Click()　　 = 請(qǐng)雙擊后填入你的答案！　　End Sub　　Private Sub TextBox1_DblClick(ByVal Cancel As )　　 = 　　End Sub單選題的制作　　例如我們要設(shè)計(jì)如圖12所示的選擇題。　　1．題目可用文本框，也可用標(biāo)簽。如果用文本框，直接輸入文本即可。如果用標(biāo)簽，插入后雙擊該標(biāo)簽啟動(dòng)VBA，修改Caption屬性為“5X15=0的解是：”，再根據(jù)需要修改其他屬性（如顏色等）。圖12 2．選項(xiàng)　　插入一單選框，修改其Caption屬性為“0”，其他屬性可自行修改。其他的單選項(xiàng)可復(fù)制制作好的單選框，然后再修改它們的Caption屬性?！　?．查看答案命令按鈕在此使用命令按鈕，我們可根據(jù)單選框的Value屬性的值來判斷答案，如正確選項(xiàng)（單選框）的Value的值為True，則為該題選擇正確，否則為選擇錯(cuò)誤，我們還可根據(jù)選擇正誤來給出信息，有兩種方法。（1）方法一用MsgBox（），如果選擇正確，顯示信息“Very Good!請(qǐng)繼續(xù)！”，錯(cuò)誤則顯示“Sorry,你選錯(cuò)了！正確答案是3，請(qǐng)繼續(xù)努力?！薄　〔僮鞑襟E：雙擊單選框進(jìn)入VBA，在編輯窗口中完成以下操作?！　. 在編輯窗口中找到如下兩條語句：　　Private Sub OptionButton3_Click()　　End Sub　　然后在上面這兩條語句中間插入以下語句：　　If =True Then ex=MsgBox(Very Good!請(qǐng)繼續(xù)努力。,Vbokonly)　　B. 同理，找到如下兩條語句：　　Private Sub OptionButton1_Click()　　End Sub　　在這兩條語句中間插入語句：　　If =True Then ex=MsgBox（正確答案是3 ，請(qǐng)繼續(xù)努力。,Vbokonly）　　C. 找到如下兩條語句　　Private Sub OptionButton2_Click()　　End Sub　　在這兩條語句中間插入語句　　　If =True Then ex=MsgBox（正確答案是 3，請(qǐng)繼續(xù)努力。,Vbokonly）　　說明：ex為自定義變量　?。?）方法二　　在幻燈片合適的地方插入一標(biāo)簽，修改其Caption屬性為空，其他設(shè)置同方法一，只要把正確選項(xiàng)中的“then”后的語名改為“=Very Good!請(qǐng)繼續(xù)！”，錯(cuò)誤選項(xiàng)的改為“=正確答案是3 ，請(qǐng)繼續(xù)努力?！奔纯?．重新選擇命令按鈕　　在幻燈片適當(dāng)?shù)牡胤讲迦胍幻畎粹o，修改其Caption屬性為“重新選擇”，在編輯窗口中的Private Sub CommandButton1_Click()和End Sub語句間插入：　　 = False　　 = False　　 = False　　 =如判斷正誤用的是方法一，此語句不要）5．下一題命令按鈕在幻燈片適當(dāng)?shù)胤讲迦胍幻畎粹o，修改其Caption屬性為“下一題”，在編輯窗口中的Private Sub CommandButton1_Click()和End Sub語句間插入　　If MsgBox(是否繼續(xù), vbYesNo + vbQuestion, “下一題”)=vbYes Then　　With SlideShowWindows(1).View　　.GotoSlide 2　　End With（2為第2張幻燈片，此語句表示轉(zhuǎn)到第2張幻燈片）　　End if　　如果要根據(jù)條件的不同轉(zhuǎn)到不同的幻燈片，可用下面語句：　　if 條件　then　　With SlideShowWindows(1).View　　.GotoSlide 2　　End With　　End if　　說明：條件可以是Caption屬性或value屬性，書寫方法為：控件名稱（在VBA中的名稱）.屬性=（value屬性為True或False，Caption屬性為具體文本，注意文本要加雙引號(hào)），例如下面的語句：　　if =true then　　表示如果單選框1的value值為True，那么運(yùn)行then后的語句，一直到end if。判斷題的制作所有的設(shè)置與單選題類似，只不過是設(shè)計(jì)兩個(gè)選項(xiàng)“√”和“”，這兩個(gè)符號(hào)可先在Word中插入，然后再復(fù)制過來。巧用PowerPoint制作比賽計(jì)時(shí)器（僅供參考）要舉辦一次比賽，其中有一個(gè)環(huán)節(jié)是自由演講，時(shí)間為30秒，由選手自己選定主題。要設(shè)計(jì)一個(gè)計(jì)時(shí)系統(tǒng)，要求能夠?qū)崟r(shí)顯示選手剩余時(shí)間。選用PowerPoint 2003，利用自定義動(dòng)畫中的“出現(xiàn)”方式，設(shè)置每一個(gè)對(duì)象的延時(shí)為1秒來實(shí)現(xiàn)，下面我詳細(xì)介紹一下制作過程?！　≥斎霕?biāo)題　　打開PowerPoint 2003，選擇“空演示文稿”，版式選為“只有標(biāo)題”，在標(biāo)題文本框中輸入“比賽計(jì)時(shí)系統(tǒng)”字體設(shè)置為“加粗”。由于我們?cè)诓シ呕脽羝臅r(shí)候，需要用的簡(jiǎn)單的宏命令，所以還需要將宏的安全性降低，方便我們使用。依次單擊“工具/宏/安全性”，然后將“安全級(jí)別”降為“低”即可?！　?dòng)態(tài)時(shí)間顯示的制作　　我們要實(shí)現(xiàn)計(jì)時(shí)開始后能夠?qū)崟r(shí)動(dòng)態(tài)的顯示時(shí)間，這里是倒計(jì)時(shí)(剩余時(shí)間)。實(shí)現(xiàn)的方法是:在幻燈片中插入文本框，文本框的內(nèi)容分別為3等這些數(shù)字，然后利用“自定義動(dòng)畫”里面的“出現(xiàn)”效果對(duì)這些文本框進(jìn)行動(dòng)畫設(shè)置，每一個(gè)對(duì)象在前一個(gè)對(duì)象出現(xiàn)后1秒出現(xiàn)?！　≡诒纠幸?yàn)橛?jì)時(shí)時(shí)間為30秒，應(yīng)該需要30個(gè)文本框，但是第一個(gè)文本框的延時(shí)時(shí)間為0秒，所以我們總共要插入31個(gè)文本框，第一個(gè)文本框沒有停留時(shí)間，這些文本框的內(nèi)容分別是29……0，即第一個(gè)文本框內(nèi)容是“30”，最后一個(gè)文本框內(nèi)容是?”，這樣輸入