輸入標(biāo)題

　　打開PowerPoint 2003，選擇“空演示文稿”，版式選為“只有標(biāo)題”，在標(biāo)題文本框中輸入“英語(yǔ)口語(yǔ)比賽計(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)容分別為1、2、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)容分別是30、29……2、1、0，即第一個(gè)文本框內(nèi)容是“30”，最后一個(gè)文本框內(nèi)容是“0”，這樣輸入可以在后面的動(dòng)畫設(shè)置時(shí)方便一些，設(shè)置所有文本框?qū)R方式為“水平居中”、“垂直居中”。這里我們以設(shè)置一個(gè)文本框的自定義動(dòng)畫效果為例來(lái)說(shuō)明一下 操作步驟:

　　1. 選擇要設(shè)置自定義動(dòng)畫的文本框。

　　2. 打開菜單“幻燈片放映/自定義動(dòng)畫”，在彈出的“自定義動(dòng)畫”對(duì)話框中我們單擊 “添加效果/進(jìn)入/出現(xiàn)”設(shè)置該對(duì)象的動(dòng)畫效果為“出現(xiàn)”。

　　3. 在彈出的對(duì)話框中我們單擊要設(shè)置對(duì)象右面的下拉按紐，選擇“效果選項(xiàng)”命令。

　　4. 單擊“效果選項(xiàng)”命令以后會(huì)彈出“出現(xiàn)”對(duì)話框，在該對(duì)話框中我們單擊“效果”標(biāo)簽，設(shè)置動(dòng)畫播放后為“下次單擊后隱藏”、“無(wú)聲音”、“整批發(fā)送”。然后選擇“計(jì)時(shí)”標(biāo)簽，設(shè)置開始方式為“之后”，延遲為“1秒”。

　　按上述步驟分別設(shè)置所有文本框的自定義動(dòng)畫:播放方式為“出現(xiàn)”，動(dòng)畫播放后的效果:所有文本(文本31除外)為“下次單擊后隱藏”， 文本31為“不變暗”。啟動(dòng)方式為:所有文本(文本1除外)為前一動(dòng)畫“之后”延遲為“1秒”， 文本1為“單擊”起動(dòng)，延遲為“0秒”，文本框的順序?yàn)?“文本1”、“文本2”一直到“文本31”。即圖中所示的“形狀2”到“形狀32”。

　　最后我們插入兩個(gè)修飾性的文本框，輸入內(nèi)容分別為“距離結(jié)束還有”、“秒”，調(diào)整位置如圖2所示，至此動(dòng)態(tài)時(shí)間顯示部分制作完成。

　　進(jìn)度條的制作

　　進(jìn)度條可以幫助我們很明了的看出已經(jīng)用過的時(shí)間。本例中是以百分比的形式顯示的，這里的進(jìn)度條是用矩形來(lái)實(shí)現(xiàn)，每2秒中進(jìn)度條變換一次(即每2秒出現(xiàn)一個(gè)矩形)，所以我們需要15個(gè)矩形塊。

　　在幻燈片中做好一個(gè)矩形塊然后復(fù)制出其它的，矩形的大小我們自己適當(dāng)掌握，設(shè)置矩形屬性為:填充色“藍(lán)色”、“無(wú)線條”，然后把這些矩形排列成如圖2中所示的樣式，為了實(shí)現(xiàn)如圖1中進(jìn)度條的效果，我們?cè)谶M(jìn)度條的下面再插入一個(gè)大的矩形，然后設(shè)置填充為較暗的顏色，疊放次序?yàn)椤白畹讓印薄?/p>

　　下面設(shè)置一下進(jìn)度條中各矩形的動(dòng)畫，我們打開菜單“幻燈片放映/自定義動(dòng)畫”在彈出的“自定義動(dòng)畫”對(duì)話框中我們分別設(shè)置各矩形：動(dòng)畫順序?yàn)閮蓚€(gè)文本后面插入一個(gè)矩形，本例中的文本1對(duì)應(yīng)自定義動(dòng)畫中的形狀2，依次類推，因?yàn)榈谝粋€(gè)文本框停留時(shí)間為0所以第一個(gè)矩形在第三個(gè)文本框后面，第二個(gè)矩形在第5個(gè)后面依此類推，本例中的第一個(gè)矩形對(duì)應(yīng)自定義動(dòng)畫中的矩形33，所以在自定義動(dòng)畫對(duì)話框中調(diào)整動(dòng)畫順序?yàn)椤靶螤?”下面是“矩形33” “形狀6”下面是“矩形34”一直到“形狀32”的下面是“矩形47”，所有矩形的啟動(dòng)動(dòng)畫方式均為:“開始”方式為“之前”，“延遲”為1秒；所有矩形的效果為:“出現(xiàn)”，“動(dòng)畫播放不變暗”。

　　最后我們?cè)傩揎椧幌逻M(jìn)度條，在其下面添加指示數(shù)字“0、25%、50%、75%、100%”，然后把這些數(shù)字“橫向分布”，至此進(jìn)度條部分制作完成。

　　按鈕的制作

　　最后我們制作“開始計(jì)時(shí)”按鈕，打開菜單“視圖/工具欄/控件工具箱”，單擊“按鈕”工具，然后在幻燈片上拖動(dòng)出一個(gè)按鈕，右擊該按鈕，打開屬性對(duì)話框，設(shè)置“caption”屬性為“開始計(jì)時(shí)”，關(guān)閉對(duì)話框，回到幻燈片頁(yè)面下，雙擊該按鈕，在出現(xiàn)的代碼窗口中輸入以下代碼:

　　Private Sub CommandButton1_Click()
　　ActivePresentation.SlideShowSettings.Run
　　SlideShowWindows(Index:=1).View.Next
　　End Sub

　　我們的制作全部完成，來(lái)檢驗(yàn)一下成果吧，按“F5”放映幻燈片，然后單擊“開始計(jì)時(shí)”按鈕，計(jì)時(shí)開始，效果如圖所示。

　　小提示：在播放過程中，首先需要驗(yàn)證該P(yáng)owerPoint的宏安全級(jí)別是否為“低”，否則將無(wú)法調(diào)用計(jì)時(shí)功能。

最近單位組織了一次英語(yǔ)會(huì)話比賽，筆者用PowerPoint內(nèi)嵌的VBA功能制作了一個(gè)即時(shí)評(píng)分系統(tǒng)，受到老師和同學(xué)們的一致好評(píng)，現(xiàn)將制作過程與大家分享。

　　準(zhǔn)備工作：在桌面新建一個(gè)名為“評(píng)分系統(tǒng)”的文件夾，用于存放參賽隊(duì)的相關(guān)信息，其中Name.txt中保存了各參賽隊(duì)名稱（需事先準(zhǔn)備，每個(gè)隊(duì)名占一行）。

　　啟動(dòng)工作：新建一張空白幻燈片，在“視圖”菜單下找到“工具欄”子菜單，選擇其中的“控件工具箱”（大家也可根據(jù)實(shí)際需要改變主界面風(fēng)格）。調(diào)整相應(yīng)控件位置，評(píng)委照片用的是“圖像控件”，下面的分?jǐn)?shù)用的是“文本框”，兩個(gè)按鈕用的是“命令按鈕”，放置好控件之后再調(diào)整各控件的屬性來(lái)美化界面，也可根據(jù)實(shí)際需要插入圖片進(jìn)行修飾。

　　評(píng)分系統(tǒng)主界面中包括8個(gè)評(píng)委的照片和每個(gè)評(píng)委給出的分?jǐn)?shù)（如圖），功能按鈕包括“清空”、“最后得分”。

　　各評(píng)分得分的文本框的名稱為TxtS1，TxtS2……TxtS8，“最后得分”按鈕的名稱為CommandTotal，第二張幻燈片用來(lái)顯示最后得分的標(biāo)簽名稱為L(zhǎng)blTotal。

　　設(shè)計(jì)工作：打開VBA編輯器編寫代碼：


　　'指定文件夾用于存放每組得分的統(tǒng)計(jì)文件

　　Const Path$ = "C:\windows\desktop\評(píng)分系統(tǒng)\"

　　'全局變量，最后總分

　　Dim sum As Single

　　'全局變量，最后平均得分

　　Dim AverageScore As Single

　　'全局變量，記錄組次，保存后自動(dòng)加1

　　Dim GroupNum As Integer

　　'清空“評(píng)委得分”，清空“最后得分”

　　Private Sub CommandButton1_Click()

　　TxtS1.Text = ""

　　TxtS2.Text = ""

　　TxtS3.Text = ""

　　TxtS4.Text = ""

　　TxtS5.Text = ""

　　TxtS6.Text = ""

　　TxtS7.Text = ""

　　TxtS8.Text = ""

　　'清空下一張幻燈片的最后總分

　　Slide2.LblTotal.Caption = ""

　　End Sub

　　'“最后得分”按鈕

　　Private Sub CommandTotal_Click()

　　On Error GoTo er

　　Dim sum As Single

　　'將8個(gè)評(píng)委的分?jǐn)?shù)相加得出總分sum

　　sum = sum + CSng(TxtS1.Text)

　　sum = sum + CSng(TxtS2.Text)

　　sum = sum + CSng(TxtS3.Text)

　　sum = sum + CSng(TxtS4.Text)

　　sum = sum + CSng(TxtS5.Text)

　　sum = sum + CSng(TxtS6.Text)

　　sum = sum + CSng(TxtS7.Text)

　　sum = sum + CSng(TxtS8.Text)

　　'計(jì)算出最后得分（平均分），精確到小數(shù)點(diǎn)后3位

　　AverageScore = Format(sum / 8, "#.###")

　　'第二張幻燈片顯示最后得分

　　Slide2.LblTotal.Caption = AverageScore

　　'寫入最后得分

　　If GroupNum>=1 AND GroupNum <= 5 Then

　　Open Path$ && "InpScore.txt" For Append As #1

　　Print #1, AverageScore

　　Close #1

　　End If

　　GroupNum = GroupNum + 1

　　er:

　　End Sub

　　新建一個(gè)模塊，寫入如下代碼，此處為評(píng)獎(jiǎng)模塊。

　　'評(píng)選項(xiàng)一等獎(jiǎng)1名，二等獎(jiǎng)2名，三等獎(jiǎng)3名，故Counter變量設(shè)為6

　　Const Counter = 6

　　Public StrName(Counter) As String

　　Public SngScore(Counter) As Single

　　'模塊功能：讀取得分文件，并對(duì)得分加以排序

　　Public Sub ReadDataInp()

　　On Error GoTo er

　　Open Path$ && "InpName.txt" For Input As #1

　　For i = 1 To Counter

　　Input #1, StrName(i)

　　Next

　　Close #1

　　Open Path$ && "InpScore.txt" For Input As #2

　　For i = 1 To Counter

　　Input #2, SngScore(i)

　　Next

　　Close #2

　　For i = 1 To Counter

　　For j = 1 To Counter

　　If SngScore(i) > SngScore(j) Then

　　a = SngScore(i): SngScore(i) = SngScore(j): SngScore(j) = a

　　b = StrName(i): StrName(i) = StrName(j): StrName(j) = b

　　End If

　　Next

　　Next

　　er:

　　End Sub

　　新建一張幻燈片，用于顯示三等獎(jiǎng)獲獎(jiǎng)名單，按鈕名稱為CmdDisply，6個(gè)文本框的名稱為TxtThirdPrize1……TxtThirdPrize6。

　　代碼如下：

　　Private Sub CmdDisply_Click()

　　ReadDataInp

　　因?yàn)榉謹(jǐn)?shù)從高到低排序，因此先輸出最后三組

　　TxtThirdPrize1.Text = StrName(4)

　　TxtThirdPrize2.Text = StrName(5)

　　TxtThirdPrize3.Text = StrName(6)

　　制作時(shí)你也可以加入其他的幻燈片用做修飾，比如制作一個(gè)帶動(dòng)態(tài)效果的開始畫面以及結(jié)束語(yǔ)等等，然后在比賽時(shí)用投影機(jī)作為輸出，一定會(huì)起到烘托賽場(chǎng)氣氛的作用。