巧用PowerPoint制作地球公轉(zhuǎn)演示動畫

1、巧用 PowerPoint制作地球公轉(zhuǎn)演示動畫提供最好的PPT模板，打造最好的PPT門戶隨著現(xiàn)代教育技術和教學設備的不斷改善和提高，越來越多的教師開始使用現(xiàn)代信息技術手段來進行教學活動，其中應用最多的就是教學課件的使用。教學課件以其簡單直觀、生動活潑的風格深得老師和學生的青睞，無論是優(yōu)質(zhì)課評選還是公開課展示；多媒體課件都成了教師們的首選；成為課堂不可或缺的一個組成部分。最近，一個地理老師就找到我，要我?guī)兔χ谱饕粋€課件用來演示地球繞日公轉(zhuǎn)運動的效果。制作動畫當然首選Flash，但是考慮到老師對Flash不是很熟悉，同時也為了使他能夠通過這個課件的制作真正學習到一些電腦知識，決定選擇大家都很熟悉的

2、PowerPiont來完成這個動畫，雖然可能有些難度，但這個軟件大家都熟悉，其中的技巧也很容易掌握，下面就介紹這個動畫的制作過程。在正式制作之前，我們先來看一下這個動畫的演示效果，（如圖1）為動畫正在播放的一個畫面。下面介紹一下詳細的制作過程：一、圖形的繪制1太陽的繪制從圖1中我們可以看出要想制作地球繞太陽公轉(zhuǎn)的動畫，必須要有太陽和地球，它們的繪制比較簡單，這里我們使用圓形來制作，然后進行顏色填充就可以了。選擇“繪圖”工具欄上的“橢圓”工具，然后按下“Shift”鍵在幻燈片的中心繪制一個圓形。為了確保所繪制的太陽在幻燈片的正中心我們可以借助“輔助線”來完成。單擊菜單“視圖一輔助線”命令，就會在

3、幻燈片中出現(xiàn)輔助線，我們可以把已經(jīng)繪制好的太陽移動到中心。當然也可直接在幻燈片的中心繪制圓形，方法如下：把光標定位于兩條輔助線的交點，然后選擇“橢圓” 工具；同時按下“CtrlShift”，拖動出一個大小適宜的圓形，為了使繪制的圓形更像一個太陽；我們選擇顏色填充，雙擊繪制的圓形，在彈出的對話框中選擇“顏色和線條標簽下的“填充”，然后選擇“顏色” 右面的下拉按鈕，選擇“填充效果” 在彈出的對話框中選擇“過度”標簽，我們設顏色1為：紅色；顏色 2為：黃色，底紋樣式為：中心輻射，這樣太陽就繪制完成了。2橢圓軌道的繪制這一步比較簡單；把光標定位于兩條輔助線的交點，然后選擇“橢圓” 工具，同時按下“Ct

4、rl鍵；拖動出合適的橢圓形，雙擊橢圓，設置顏色填充為“無”。最后效果（如圖2）所示。3地球的繪制 地球我們?nèi)匀焕脠A形來完成，利用橢圓”工具在幻燈片上繪制一個圓形，調(diào)整適當大小，然后進行填充，這里的填充效果我們選擇雙色里面的橫向填充，圓形的一面填充的比較亮一些一面填充的比較暗一些，這樣有利于突出太陽直射的效果。因為我們是通過自定義動畫里面出現(xiàn)的效果來實現(xiàn)繞日轉(zhuǎn)動的動畫效果；所以需要很多個地球均勻分布在橢圓型軌道上，這里使用復制的方法來完成其他地球的制作，然后把他們均勻分布在橢圓型軌道上，這是一個反復調(diào)整的過程，為了使他們更精確我們可以借助輔助線，有一點需要注意；排列好這些圓形后，必須使用“繪圖

5、”工具欄上的“旋轉(zhuǎn)工具調(diào)整，使地球比較亮的一面正對太陽，調(diào)整好的最后效果（如圖3）所示。4其他說明語句的制作我們演示的是地球公轉(zhuǎn)的動畫；地球公轉(zhuǎn)一周需要365又1/4天（1年），而春夏秋冬這四個節(jié)氣正好把1年四等分，為了使課件更生動形象，我們把這些提示性的說明添加進去，這里使用的是文本框。另外太陽不是在橢圓軌道的正中心，所以還要微調(diào)一下太陽的位置，最后去掉輔助線，最后效果（如圖4）所示。動畫效果的設置 上述基本圖形繪制完成以后；要實現(xiàn)地球繞日運動的動畫效果十分簡單，只要分別設置橢圓形軌道上所有地球的自定義動畫效果均為“出現(xiàn)”、“動畫播放后隱藏”（為了實現(xiàn)地球運動的效果），啟動動畫的時間為：“前

6、一事件后00：00秒”。各個對象的出現(xiàn)順序為逆時針方向依次出現(xiàn)，（如圖5）所示。按上述方法設置完成的動畫只能夠演示公轉(zhuǎn)一圈的效果，如果要讓動畫一直運動下去還需要設置幻燈片的切換方式和放映方式，為了使動畫能夠自動播放，我們設置幻燈片的切換方式為：每隔0秒，為了使動畫能夠連續(xù)循環(huán)播放，我們設置幻燈片的放映方式為：循環(huán)放映，按自ESC鍵時結(jié)束。如果需要控制動畫的播放，控件工具箱中的按鈕工具來實現(xiàn)，其中“開始演示動畫”按鈕的代碼是：Private Sub CommandButtonl_Click()ActivePresentationSlideshowSettings.RunSlideshowwindows(Index:1).View.NextEnd Sub“停止動畫” 按鈕的代碼是：Private Sub Comm