最近學校要舉辦一次英語口語比賽，其中有一個環節是自由演講，時間為30秒，由選手自己選定主題。領導決定由我來設計一個計時系統，要求能夠實時顯示選手剩余時間，幾經考慮，我決定選用PowerPoint 2003，利用自定義動畫中的“出現”方式，設置每一個對象的延時為1秒來實現（如圖1），下面我詳細介紹一下制作過程。

圖1

  

  輸入標題

    打開PowerPoint 2003，選擇“空演示文稿”，版式選為“只有標題”，在標題文本框中輸入“英語口語比賽計時系統”字體設置為“加粗”。由于我們在播放幻燈片的時候，需要用的簡單的宏命令，所以還需要將宏的安全性降低，方便我們使用。依次單擊“工具/宏/安全性”，然后將“安全級別”降為“低”即可。

    動態時間顯示的制作

    我們要實現計時開始后能夠實時動態的顯示時間，這里是倒計時（剩余時間）。實現的方法是：在幻燈片中插入文本框，文本框的內容分別為1、2、3等這些數字，然后利用“自定義動畫”里面的“出現”效果對這些文本框進行動畫設置，每一個對象在前一個對象出現后1秒出現。在本例中因為計時時間為30秒，應該需要30個文本框，但是第一個文本框的延時時間為0秒，所以我們總共要插入31個文本框，第一個文本框沒有停留時間，這些文本框的內容分別是30、29……2、1、0，即第一個文本框內容是“30”，最后一個文本框內容是“0”，這樣輸入可以在后面的動畫設置時方便一些，設置所有文本框對齊方式為“水平居中”、“垂直居中”（如圖2）。這里我們以設置一個文本框的自定義動畫效果為例來說明一下 操作步驟：

圖2

   

1． 選擇要設置自定義動畫的文本框。

    2． 打開菜單“幻燈片放映/自定義動畫”，在彈出的“自定義動畫”對話框中我們單擊 “添加效果/進入/出現”設置該對象的動畫效果為“出現”（如圖3）。

圖3

3． 在彈出的對話框中我們單擊要設置對象右面的下拉按紐，選擇“效果選項”命令（如圖4）。

圖4

 

   4． 單擊“效果選項”命令以后會彈出“出現”對話框，在該對話框中我們單擊“效果”標簽，設置動畫播放后為“下次單擊后隱藏”、“無聲音”、“整批發送”（如圖5）。然后選擇“計時”標簽，設置開始方式為“之后”，延遲為“1秒”。

圖5

    按上述步驟分別設置所有文本框的自定義動畫：播放方式為“出現”，動畫播放后的效果：所有文本（文本31除外）為“下次單擊后隱藏”， 文本31為“不變暗”。啟動方式為：所有文本（文本1除外）為前一動畫“之后”延遲為“1秒”， 文本1為“單擊”起動，延遲為“0秒”，文本框的順序為：“文本1”、“文本2”一直到“文本31”。即圖中所示的“形狀2”到“形狀32”。
最后我們插入兩個修飾性的文本框，輸入內容分別為“距離結束還有”、“秒”，調整位置如圖2所示，至此動態時間顯示部分制作完成。

   

 進度條的制作

    進度條可以幫助我們很明了的看出已經用過的時間。本例中是以百分比的形式顯示的，這里的進度條是用矩形來實現，每2秒中進度條變換一次（即每2秒出現一個矩形），所以我們需要15個矩形塊。在幻燈片中做好一個矩形塊然后復制出其它的，矩形的大小我們自己適當掌握，設置矩形屬性為：填充色“藍色”、“無線條”，然后把這些矩形排列成如圖2中所示的樣式，為了實現如圖1中進度條的效果，我們在進度條的下面再插入一個大的矩形，然后設置填充為較暗的顏色，疊放次序為“最底層”。下面設置一下進度條中各矩形的動畫，我們打開菜單“幻燈片放映/自定義動畫”在彈出的“自定義動畫”對話框中我們分別設置各矩形：動畫順序為兩個文本后面插入一個矩形，本例中的文本1對應自定義動畫中的形狀2，依次類推，因為第一個文本框停留時間為0所以第一個矩形在第三個文本框后面，第二個矩形在第5個后面依此類推，本例中的第一個矩形對應自定義動畫中的矩形33，所以在自定義動畫對話框中調整動畫順序為“形狀4”下面是“矩形33” “形狀6”下面是“矩形34”一直到“形狀32”的下面是“矩形47”，所有矩形的啟動動畫方式均為：“開始”方式為“之前”，“延遲”為1秒；所有矩形的效果為：“出現”，“動畫播放不變暗”。最后我們再修飾一下進度條，在其下面添加指示數字“0、25%、50%、75%、100%”，然后把這些數字“橫向分布”效果如圖2，至此進度條部分制作完成。

    按鈕的制作

    最后我們制作“開始計時”按鈕，打開菜單“視圖/工具欄/控件工具箱”，單擊“按鈕”工具，然后在幻燈片上拖動出一個按鈕，右擊該按鈕，打開屬性對話框，設置“caption”屬性為“開始計時”，關閉對話框，回到幻燈片頁面下，雙擊該按鈕，在出現的代碼窗口中輸入以下代碼：
　　Private Sub CommandButton1_Click()
　　ActivePresentation.SlideShowSettings.Run
　　SlideShowWindows(Index:=1).View.Next
　　End Sub
　　
    我們的制作全部完成，來檢驗一下成果吧，按“F5”放映幻燈片，然后單擊“開始計時”按鈕，計時開始，效果如圖1所示。
　　
    小提示：在播放過程中，首先需要驗證該PowerPoint的宏安全級別是否為“低”，否則將無法調用計時功能。