馬致明，艾克拉木·牙合甫，楊婷婷

（1.新疆師范大學(xué)計算機(jī)科學(xué)技術(shù)學(xué)院，新疆烏魯木齊830054；2.新疆師范大學(xué)學(xué)生處，新疆烏魯木齊830054）

利用VBA讓PPT具有遙控倒計時及電子打鈴功能

馬致明1，艾克拉木·牙合甫2，楊婷婷1

（1.新疆師范大學(xué)計算機(jī)科學(xué)技術(shù)學(xué)院，新疆烏魯木齊830054；2.新疆師范大學(xué)學(xué)生處，新疆烏魯木齊830054）

在剖析PowerPoint VBA編程方法的基礎(chǔ)上，探討如何利用VBA編程讓PPT具有遙控倒計時及電子打鈴功能，文中詳細(xì)介紹了其制作過程，并給出了通用性很好的實例程序全代碼。

VBA編程；倒計時；電子打鈴；遙控；PPT演示文稿；模擬鐘聲

引言

PowerPoint由于其簡單易用、操作方便、通用性好等優(yōu)點(diǎn)，成為學(xué)校和企事業(yè)單位使用頻率最高的軟件之一。除了多媒體教學(xué)這一主戰(zhàn)場以外，PowerPoint在演講比賽、論文答辯、競聘述職、工作匯報、評獎申報等一系列活動中應(yīng)用非常廣泛，并常常被用來與投影儀搭配在會場上呈現(xiàn)會議主題、營造會議氣氛等。在這些活動中通常要求主講者在限定的時間內(nèi)完成陳述，但主辦者卻常常為倒計時犯愁：大屏幕上用計算機(jī)展示著主題，而計時卻用很原始、很笨的手段進(jìn)行協(xié)助。如果在大屏幕上呈現(xiàn)會議主題的同時，給主講者和聽眾一個倒計時的界面，到規(guī)定的時間后自動打鈴和提示，其效果及會場氛圍肯定是截然不同的。即使大屏幕因內(nèi)容展示而被主講者占用，在會場前方的某個位置放個筆記本電腦進(jìn)行遙控倒計時和打鈴，其效果也是非同一般的。

為了使PPT具備上述強(qiáng)大的功能，必須借助它所附帶的編程工具VBA對演示文稿進(jìn)行二次開發(fā)。關(guān)于VBA概述很多文章中均有介紹，在此不再贅述。

一、設(shè)計思路與關(guān)鍵技術(shù)

1.設(shè)計思路

在PPT演示文稿中用2張幻燈片來完成有關(guān)功能，其中第1張用來設(shè)定有關(guān)倒計時及打鈴的參數(shù)，主要有倒計時的時長、打鈴的次數(shù)、打鈴的時機(jī)等，為此需要在此幻燈片中通過控件工具箱添加文本框、選項按鈕、命令按鈕等控件；第2張幻燈片是主界面，用來呈現(xiàn)會議標(biāo)題、倒計時的數(shù)字時鐘、到達(dá)設(shè)定時長后的提示以及打鈴，為此也需要在此幻燈片中通過控件工具箱添加命令按鈕和復(fù)選按鈕等控件，至于數(shù)字時鐘則用PPT中的水平文本框進(jìn)行呈現(xiàn)，這樣便于用戶靈活設(shè)置其格式與位置，以便與標(biāo)題和背景能完美地組合和搭配。

2.關(guān)鍵技術(shù)

（1）計時功能的實現(xiàn)

通常動態(tài)效果及計時功能的實現(xiàn)離不開定時器控件，但VBA不支持該控件。雖然API函數(shù)SetTimer ()與KillTimer()可以彌補(bǔ)這一缺陷，但需要在標(biāo)準(zhǔn)模塊中聲明這兩個煩瑣的API函數(shù)，并編寫相應(yīng)的定時器事件處理子程序，使用起來非常麻煩。

通過探索筆者找到了解決該問題的一個簡潔方法，即利用VBA自帶的Timer函數(shù)。此函數(shù)返回的是從子夜開始的秒數(shù)，測出兩個不同時刻的Timer值即可得經(jīng)歷的秒數(shù)。本例中在計時一開始就記錄下初始時刻：T0=Timer，此后在循環(huán)中不斷測出當(dāng)前時刻的Timer值，當(dāng)Timer-T0≤TotalTime（限定的時長）時就顯示還剩的時間T=TotalTime-（Timer-T0），當(dāng)T到達(dá)設(shè)定的打鈴時間時，進(jìn)行文字提示并調(diào)用打鈴子程序發(fā)出指定次數(shù)的模擬鐘聲。

在循環(huán)中一定要用一個單獨(dú)的DoEvents語句，以便隨時將控制權(quán)交給系統(tǒng)，以顧及系統(tǒng)的其它任務(wù)或請求。

（2）模擬鐘聲的奏出

為了增強(qiáng)效果，并減少對音效文件的依賴，本文通過調(diào)用Midi函數(shù)奏出模擬鐘聲。Midi是樂器數(shù)字接口的英文縮寫，計算機(jī)的聲卡中包含一個與Midi兼容的合成器，在程序中可通過調(diào)用與Midi相關(guān)的API函數(shù)打開或關(guān)閉Midi端口、向Midi端口發(fā)送消息并產(chǎn)生相應(yīng)的音效。其中用于打開Midi端口的是MidiOutOpen()函數(shù)，其第一個參數(shù)可返回已打開的端口號；用于關(guān)閉Midi端口的是MidiOutClose()函數(shù)，其參數(shù)就是要關(guān)閉的端口號；用于傳遞Midi輸出消息的是MidiOutShortMsg()函數(shù)，其第1個參數(shù)用于指定端口號，第2個參數(shù)通常是一個十六進(jìn)制的整數(shù)，直接決定音效的內(nèi)容，若選用&H7F2890這個值可以模擬出類似鐘聲的效果。值得一提的是，每個音符發(fā)出后必須延遲一段時間，具體做法還是用Timer函數(shù)進(jìn)行時間控制，有關(guān)用法請參照下文中的制作實例。

（3）對象名稱的確定

宏代碼中不可避免地要引用有關(guān)控件或?qū)ο蟮拿Q，但是只有從“控件工具箱”中添加的控件才能在屬性和代碼窗口中查到其名稱，對于從其它菜單或工具欄中插入的文本框、自選圖形等對象其名稱便無從得知；本文中用于顯示數(shù)字時鐘的水平文本框就屬這類，獲取其名稱的唯一方法是針對這些對象錄制一段臨時宏，然后在宏代碼中去查找。具體操作過程如下：

①將對象添加至幻燈片，然后打開“工具／宏”菜單中的“錄制新宏”對話框，使用默認(rèn)宏名并單擊“確定”，此時會出現(xiàn)一個“停止錄制”的浮動工具欄，表明已進(jìn)入宏錄制狀態(tài)；

②在幻燈片中調(diào)整該對象的位置或大小，然后單擊浮動工具欄中的“停止錄制”；

③打開“工具／宏”菜單中的“宏”對話框，選中相應(yīng)的宏名并單擊“編輯”后即可進(jìn)入宏代碼窗口，此時在代碼中就可以查看到該對象的名稱，記下名稱后將錄制的宏刪除即可。

二、制作實例

啟動PowerPoint，建立2張空白幻燈片，通過“視圖/工具欄”菜單打開“控件工具箱”。

1.添加對象

（1）第1張幻燈片

①選中“控件工具箱”中的“選項按鈕”控件，在幻燈片左側(cè)畫出3個選項按鈕，并將Caption屬性依次設(shè)置成 “打鈴0次”、“打鈴 1次”和“打鈴2次”；添加2個 “文本框”控件，分別用于輸入限定的時長和第1次打鈴的時間；再添加1個“命令按鈕”控件，并將Caption屬性設(shè)置成“確定”。

②參照圖1，通過 “插入/文本框”菜單在相應(yīng)位置添加水平文本框，并設(shè)置文字內(nèi)容。

（2）第2張幻燈片

①參照圖2，在幻燈片底部添加2個“命令按鈕”控件，并將Caption屬性設(shè)置成“計時”和“停止”；在兩個按鈕之間添加1個“復(fù)選框”控件，并將Caption屬性設(shè)置成“啟用遙控筆”。

②通過“插入/文本框”菜單在幻燈片中下部添加1個用于顯示數(shù)字時鐘的水平文本框，并設(shè)定好字體的顏色、字號等格式。

③在幻燈片的中上方用藝術(shù)字或文本框添加會議標(biāo)題等信息。

（3）說明

“啟用遙控筆”復(fù)選框放入第2張幻燈片的原因是：當(dāng)按下遙控筆上的上、下兩個按鈕時，相當(dāng)于按下鍵盤上的PgUp、PgDn這兩個鍵，為了讓這兩個按鈕對應(yīng)“計時”和“停止”按鈕的單擊事件，必須有一個能夠獲得焦點(diǎn)且能捕獲按鍵信息的控件，命令按鈕無法獲得焦點(diǎn)，因此只好用復(fù)選框。放映時，不管此復(fù)選框是否被選中，只要焦點(diǎn)在其上即可捕獲遙控筆的按鍵信息。

2.編寫宏代碼

（1）確定“數(shù)字時鐘”文本框的名稱

如上所述，為了方便用戶操作和控制，呈現(xiàn)“數(shù)字時鐘”的對象是PPT中的水平文本框，此文本框的名稱無法直接查到，只好用前面所講的錄制臨時宏的方法進(jìn)行查找。在本例中查出的該對象的名稱是Shapes ("Text Box 7")。

（2）編寫第1張幻燈片的宏代碼

雙擊第1張幻燈片中的“確定”按鈕，進(jìn)入Slide1（第1張幻燈片）的宏代碼窗口，并輸入以下代碼（代碼中有較詳細(xì)的注釋，限于篇幅，不做進(jìn)一步解釋，下同）：

3.運(yùn)行

放映幻燈片，在第1張幻燈片中設(shè)定好倒計時的時長、打鈴的次數(shù)及時間等相關(guān)參數(shù)后，單擊“確定”按鈕即可進(jìn)入倒計時主界面（即第2張幻燈片），單擊“啟用遙控筆”復(fù)選框后就可借助鼠標(biāo)或遙控筆進(jìn)行計時、打鈴等操作，操作十分方便。運(yùn)行界面如圖1、圖2所示。

需要說明的是，為了防范宏病毒對計算機(jī)的侵害，在PowerPoint的“工具”菜單中對宏的安全性設(shè)置了不同的安全級，只有將安全級設(shè)置成“低”或“中”，重新打開相應(yīng)的演示文稿，并在系統(tǒng)提示的“安全警告”對話框中選擇“啟用宏”（當(dāng)安全級設(shè)置成“中”時會出現(xiàn)此對話框），這樣才能在幻燈片放映時啟動宏程序，看到遙控倒計時及電子打鈴的效果。

結(jié)束語

在充分發(fā)揮PPT自身優(yōu)勢的同時，若能適當(dāng)應(yīng)用VBA功能，制作出的演示文稿就會如虎添翼，其交互性和演示效果毫不遜色于專業(yè)軟件開發(fā)工具制作的作品。

[1]（美）戴維斯（Davis,G.H.）著，楊密、楊樂、柯樹森譯.VBA從入門到精通[M].北京：電子工業(yè)出版社，2008.6.

[2]顏清.PowerPoint課件中基于VBA的習(xí)題設(shè)計[J].計算機(jī)與現(xiàn)代化，2006，（2）.

[3]程智.利用VBA來提高PowerPoint制作的課件的交互性[J].中國電化教育，2002，（6）.

（編輯：王天鵬）

TP317

A

1673-8454（2011）22-0043-04