【正文】 可以在后面的動畫設(shè)置時方便一些，設(shè)置所有文本框?qū)R方式為“水平居中”、“垂直居中”。這里我們以設(shè)置一個文本框的自定義動畫效果為例來說明一下 操作步驟:　　1. 選擇要設(shè)置自定義動畫的文本框?！　?. 打開菜單“幻燈片放映/自定義動畫”，在彈出的“自定義動畫”對話框中我們單擊 “添加效果/進(jìn)入/出現(xiàn)”設(shè)置該對象的動畫效果為“出現(xiàn)”?！　?. 在彈出的對話框中我們單擊要設(shè)置對象右面的下拉按紐，選擇“效果選項(xiàng)”命令?！　?. 單擊“效果選項(xiàng)”命令以后會彈出“出現(xiàn)”對話框，在該對話框中我們單擊“效果”標(biāo)簽，設(shè)置動畫播放后為“下次單擊后隱藏”、“無聲音”、“整批發(fā)送”。然后選擇“計(jì)時”標(biāo)簽，設(shè)置開始方式為“之后”，延遲為“1秒”?！　“瓷鲜霾襟E分別設(shè)置所有文本框的自定義動畫:播放方式為“出現(xiàn)”，動畫播放后的效果:所有文本(文本31除外)為“下次單擊后隱藏”， 文本31為“不變暗”。啟動方式為:所有文本(文本1除外)為前一動畫“之后”延遲為“1秒”， 文本1為“單擊”起動，延遲為“0秒”，文本框的順序?yàn)?“文本1”、“文本2”一直到“文本31”。即圖中所示的“形狀2”到“形狀32”?！　∽詈笪覀儾迦雰蓚€修飾性的文本框，輸入內(nèi)容分別為“距離結(jié)束還有”、“秒”，調(diào)整位置如圖2所示，至此動態(tài)時間顯示部分制作完成。　　進(jìn)度條的制作　　進(jìn)度條可以幫助我們很明了的看出已經(jīng)用過的時間。本例中是以百分比的形式顯示的，這里的進(jìn)度條是用矩形來實(shí)現(xiàn)，每2秒中進(jìn)度條變換一次(即每2秒出現(xiàn)一個矩形)，所以我們需要15個矩形塊?！　≡诨脽羝凶龊靡粋€矩形塊然后復(fù)制出其它的，矩形的大小我們自己適當(dāng)掌握，設(shè)置矩形屬性為:填充色“藍(lán)色”、“無線條”，然后把這些矩形排列成如圖2中所示的樣式，為了實(shí)現(xiàn)如圖1中進(jìn)度條的效果，我們在進(jìn)度條的下面再插入一個大的矩形，然后設(shè)置填充為較暗的顏色，疊放次序?yàn)椤白畹讓印??！　∠旅嬖O(shè)置一下進(jìn)度條中各矩形的動畫，我們打開菜單“幻燈片放映/自定義動畫”在彈出的“自定義動畫”對話框中我們分別設(shè)置各矩形：動畫順序?yàn)閮蓚€文本后面插入一個矩形，本例中的文本1對應(yīng)自定義動畫中的形狀2，依次類推，因?yàn)榈谝粋€文本框停留時間為0所以第一個矩形在第三個文本框后面，第二個矩形在第5個后面依此類推，本例中的第一個矩形對應(yīng)自定義動畫中的矩形33，所以在自定義動畫對話框中調(diào)整動畫順序?yàn)椤靶螤?”下面是“矩形33” “形狀6”下面是“矩形34”一直到“形狀32”的下面是“矩形47”，所有矩形的啟動動畫方式均為:“開始”方式為“之前”，“延遲”為1秒；所有矩形的效果為:“出現(xiàn)”，“動畫播放不變暗”?！　∽詈笪覀冊傩揎椧幌逻M(jìn)度條，在其下面添加指示數(shù)字“0、25%、50%、75%、100%”，然后把這些數(shù)字“橫向分布”，至此進(jìn)度條部分制作完成。　　按鈕的制作　　最后我們制作“開始計(jì)時”按鈕，打開菜單“視圖/工具欄/控件工具箱”，單擊“按鈕”工具，然后在幻燈片上拖動出一個按鈕，右擊該按鈕，打開屬性對話框，設(shè)置“caption”屬性為“開始計(jì)時”，關(guān)閉對話框，回到幻燈片頁面下，雙擊該按鈕，在出現(xiàn)的代碼窗口中輸入以下代碼:　　Private Sub CommandButton1_Click()　　　　SlideShowWindows(Index:=1).　　End Sub我們的制作全部完成，來檢驗(yàn)一下成果吧，按“F5”放映幻燈片，然后單擊“開始計(jì)時”按鈕，計(jì)時開始，效果如圖13所示。圖13小提示：在播放過程中，首先需要驗(yàn)證該P(yáng)owerPoint的宏安全級別是否為“低”，否則將無法調(diào)用計(jì)時功能。制作即時評分系統(tǒng)（僅供參考）用PowerPoint內(nèi)嵌的VBA功能制作一個即時評分系統(tǒng)，現(xiàn)將制作過程與大家分享。　　準(zhǔn)備工作：在桌面新建一個名為“評分系統(tǒng)”的文件夾，用于存放參賽隊(duì)的相關(guān)信息，（需事先準(zhǔn)備，每個隊(duì)名占一行）?！　庸ぷ鳎盒陆ㄒ粡埧瞻谆脽羝?，在“視圖”菜單下找到“工具欄”子菜單，選擇其中的“控件工具箱”（大家也可根據(jù)實(shí)際需要改變主界面風(fēng)格）。調(diào)整相應(yīng)控件位置，評委照片用的是“圖像控件”，下面的分?jǐn)?shù)用的是“文本框”，兩個按鈕用的是“命令按鈕”，放置好控件之后再調(diào)整各控件的屬性來美化界面，也可根據(jù)實(shí)際需要插入圖片進(jìn)行修飾。　　評分系統(tǒng)主界面中包括8個評委的照片和每個評委給出的分?jǐn)?shù)（如圖），功能按鈕包括“清空”、“最后得分”?！　「髟u分得分的文本框的名稱為TxtS1，TxtS2……TxtS8，“最后得分”按鈕的名稱為CommandTotal，第二張幻燈片用來顯示最后得分的標(biāo)簽名稱為LblTotal。　　設(shè)計(jì)工作：打開VBA編輯器編寫代碼：　　39。指定文件夾用于存放每組得分的統(tǒng)計(jì)文件　　Const Path$ = C:\windows\desktop\評分系統(tǒng)\　　39。全局變量，最后總分　　Dim sum As Single　　39。全局變量，最后平均得分　　Dim AverageScore As Single　　39。全局變量，記錄組次，保存后自動加1　　Dim GroupNum As Integer　　39。清空“評委得分”，清空“最后得分”　　Private Sub CommandButton1_Click()　　 = 　　 = 　　 = 　　 = 　　 = 　　 = 　　 = 　　 = 　　39。清空下一張幻燈片的最后總分　　 = 　　End Sub　　39?！白詈蟮梅帧卑粹o　　Private Sub CommandTotal_Click()　　On Error GoTo er　　Dim sum As Single　　39。將8個評委的分?jǐn)?shù)相加得出總分sum　　sum = sum + CSng()　　sum = sum + CSng()　　sum = sum + CSng()　　sum = sum + CSng()　　sum = sum + CSng()　　sum = sum + CSng()　　sum = sum + CSng()　　sum = sum + CSng()　　39。計(jì)算出最后得分（平均分），精確到小數(shù)點(diǎn)后3位　　AverageScore = Format(sum / 8, .)　　39。第二張幻燈片顯示最后得分　　 = AverageScore　　39。寫入最后得分　　If GroupNum=1 AND GroupNum = 5 Then　　Open Path$ amp。amp。 For Append As 1　　Print 1, AverageScore　　Close 1　　End If　　GroupNum = GroupNum + 1　　er:　　End Sub　　新建一個模塊，寫入如下代碼，此處為評獎模塊?！　?9。評選項(xiàng)一等獎1名，二等獎2名，三等獎3名，故Counter變量設(shè)為6　　Const Counter = 6　　Public StrName(Counter) As String　　Public SngScore(Counter) As Single　　39。模塊功能：讀取得分文件，并對得分加以排序　　Public Sub ReadDataInp()　　On Error GoTo er　　Open Path$ amp。amp。 For Input As 1　　For i = 1 To Counter　　Input 1, StrName(i)　　Next　　Close 1　　Open Path$ amp。amp。 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　　新建一張幻燈片，用于顯示三等獎獲獎名單，按鈕名稱為CmdDisply，6個文本框的名稱為TxtThirdPrize1……TxtThirdPrize6?！　〈a如下：　　Private Sub CmdDisply_Click()　　ReadDataInp　　因?yàn)榉謹(jǐn)?shù)從高到低排序，因此先輸出最后三組　　 = StrName(4)　　 = StrName(5)　　 = StrName(6)制作時你也可以加入其他的幻燈片用做修飾，比如制作一個帶動態(tài)效果的開始畫面以及結(jié)束語等等，然后在比賽時用投影機(jī)作為輸出，一定會起到烘托賽場氣氛的作用。ppt制作課件的常用技巧（一）20120502 13:05:00標(biāo)簽： PPT制作技巧分類：資源共享課件制作的常用技巧（一）使用設(shè)計(jì)方案　　通常情況下，新建的演示文稿使用的是黑白幻燈片方案，如果需要使用其他方案，一般可以通過應(yīng)用其內(nèi)置的設(shè)計(jì)方案來快速添加?！　?．執(zhí)行“視圖→任務(wù)窗格”命令，展開“任務(wù)窗格”?！　?．單擊任務(wù)窗格頂部的下拉按鈕，在隨后彈出的下拉列表中，選擇“幻燈片設(shè)計(jì)”選項(xiàng)，展開“幻燈片設(shè)計(jì)”任務(wù)窗格?！　?．選擇一種設(shè)計(jì)方案，然后按其右側(cè)的下拉按鈕，在彈出的下拉列表中，根據(jù)需要應(yīng)用即可。（二）用網(wǎng)格線定位對象當(dāng)我們在PPT幻燈片中添加了多個對象后，可以通過網(wǎng)格線來精確定位對象的位置：1．執(zhí)行“視圖→網(wǎng)格和參考線”命令，打開“網(wǎng)格和參考線”對話框。2．單擊“間距”右側(cè)的下拉按鈕，在隨后彈出的下拉列表中，選擇一種網(wǎng)格樣式（如“每厘米8個網(wǎng)格”），再選中“屏幕上顯示網(wǎng)格”選項(xiàng)，確定返回即可。3．有了網(wǎng)格線，就可以輕松定位對象位置了。（三）對齊圖片、文本框等多個對象當(dāng)我們在一張幻燈片中插入了多個對象（如圖片、圖形、文本框等）后，利用“繪圖”工具可以讓他們排列的整整齊齊。執(zhí)行“視圖→工具欄→繪圖”命令，展開“繪圖”工具欄，按一下工具欄上的“選擇對象”按鈕，然后在多個對象外圍拖拉出一個框，將多個對象框在其中，同時選中多個需要對齊的對象，按“繪圖”工具欄上“繪圖(R)”按鈕，在隨后彈出一快捷菜單中，展開“對齊或分布”級聯(lián)菜單，選中其中一種對齊方式(如“右對齊”)即可。（四）奇跡 3D效果也制作想制作簡單的3D課件，卻對專業(yè)的3D軟件望而生畏？不必苦惱，用PowerPoint也可解燃眉之急。只要巧妙利用它的三維設(shè)置功能，同樣可以完成3D效果的逼真課件。制作三維立體圖首先，插入平面自選圖形，如矩形、圓形等。然后，單擊繪圖工具欄上的〔三維效果樣式〕按鈕，為自選圖形選擇一種立體效果。打開三維設(shè)置工具欄單擊〔三維效果樣式〕按鈕，選擇“三維設(shè)置”命令，即可打開“三維設(shè)置”工具欄，欄上的每個按鈕都有特定的功能（如圖1）。圖1進(jìn)行3D演示 單擊〔設(shè)置/取消三維效果〕按鈕，可以實(shí)現(xiàn)平面圖形和立體圖形之間的快速切換。單擊〔深度〕按鈕，可以選擇不同的深度值，從而快速改變?nèi)S深度（如果您選擇了“無窮”，還可以制作出錐體效果）。單擊〔方向〕按鈕，可以快速改變?nèi)S方向，還可以在透視效果和平行效果之間快速切換。單擊〔照明角度〕按鈕，可以快速改變?nèi)S圖形各表面的光照強(qiáng)度，以突出圖形的不同側(cè)面。此外，您還可以選擇照明的亮度是“明亮”、“普通”還是“陰暗”。單擊〔表面效果〕按鈕，可以為三維圖形表面選擇不同的效果。特別值得一提的是，如果您選擇了“透明框架”效果，圖形將失去填充色，由實(shí)體快速轉(zhuǎn)換為透明框架，這在幾何教學(xué)中是非常實(shí)用的。技巧鏈接：單擊繪圖工具欄〔填充顏色〕按鈕旁的小三角，選擇“其他填充顏色”，在隨后彈出的窗口中可以調(diào)節(jié)色彩透明度，調(diào)節(jié)后的三維圖形就會呈現(xiàn)前表面半透明的特殊效果（如圖2）。圖2 圖3 專業(yè)整理分享