利用PowerPoint制作比賽計時器

下面我詳細介紹一下制作過程。
　　輸入標題
　　打開PowerPoint 2003，選擇“空演示文稿”，版式選為“只有標題”，在標題文本框中輸入“英語口語比賽計時系統”字體設置為“加粗”。由於我們在播放幻燈片的時候，需要用的簡單的宏命令，所以還需要將宏的安全性降低，方便我們使用。依次單擊“工具/宏/安全性”，然後將“安全級別”降為“低”即可。
　　動態時間顯示的制作
　　我們要實現計時開始後能夠實時動態的顯示時間，這裡是倒計時(剩余時間)。實現的方法是:在幻燈片中插入文本框，文本框的內容分別為1、2、3等這些數字，然後利用“自定義動畫”裡面的“出現”效果對這些文本框進行動畫設置，每一個對象在前一個對象出現後1秒出現。
　　在本例中因為計時時間為30秒，應該需要30個文本框，但是第一個文本框的延時時間為0秒，所以我們總共要插入31個文本框，第一個文本框沒有停留時間，這些文本框的內容分別是30、29……2、1、0，即第一個文本框內容是“30”，最後一個文本框內容是?”，這樣輸入可以在後面的動畫設置時方便一些，設置所有文本框對齊方式為“水平居中”、“垂直居中”。這裡我們以設置一個文本框的自定義動畫效果為例來說明一下 操作步驟:
　　1. 選擇要設置自定義動畫的文本框。
　　2. 打開菜單“幻燈片放映/自定義動畫”，在彈出的“自定義動畫”對話框中我們單擊 “添加效果/進入/出現”設置該對象的動畫效果為“出現”。
　　3. 在彈出的對話框中我們單擊要設置對象右面的下拉按紐，選擇“效果選項”命令。
　　4. 單擊“效果選項”命令以後會彈出“出現”對話框，在該對話框中我們單擊“效果”標簽，設置動畫播放後為“下次單擊後隱藏”、“無聲音”、“整批發送”。然後選擇“計時”標簽，設置開始方式為“之後”，延遲為“1秒”。
　　按上述步驟分別設置所有文本框的自定義動畫:播放方式為“出現”，動畫播放後的效果:所有文本(文本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%”，然後把這些數字“橫向分布”，至此進度條部分制作完成。
　　按鈕的制作
　　最後我們制作“開始計時”按鈕，打開菜單“視圖/工具欄/控件工具箱”，單擊“按鈕”工具，然後在幻燈片上拖動出一個按鈕，右擊該按鈕，打開屬性對話框，設置“caption”屬性為“開始計時”，關閉對話框，回到幻燈片頁面下，雙擊該按鈕，在出現的代碼窗口中輸入以下代碼:
Private Sub CommandButton1_Click()
ActivePresentation.SlideShowSettings.Run
SlideShowWindows(Index:=1).View.Next
End Sub
　　我們的制作全部完成，來檢驗一下成果吧，按“F5”放映幻燈片，然後單擊“開始計時”按鈕，計時開始，效果如圖所示。
 
　　小提示：在播放過程中，首先需要驗證該PowerPoint的宏安全級別是否為“低”，否則將無法調用計時功能。