推薦：解決PowerPoint英語課件配音難同步的問題
用PowerPoint制作英語課件時，在“聽力配課文”環節上出了點小問題：課文很長，若將內容放在一頁上，只能是個形式，學生根本看不到文字的提示。而如果放到多頁上，又必須把聲音文件按幻燈片內容適當截

用PowerPoint制作課件，因其簡單易學制作方便而成為老師們的首選工具。今天我們要講的是在PowerPoint中實現正弦波的演示。

　　正弦型函數的圖象是高中數學中很重要的內容。但對于很多學生來說，這節課的內容又顯得過于抽象而變得難于理解。所以，數學老師們多選擇用課件來演示正弦波以更好地完成教學任務。那么，在PowerPoint中如何實現正弦波的演示呢?

　　一、一般性演示

　　如果課件只是要求簡單的演示正弦波的圖象，沒有什么交互性的要求，而您使用的又是Offcie XP或者2003版本，那么，這個問題就變得非常簡單了。

　　先點擊“繪圖”工具欄中的“橢圓”按鈕，在幻燈片編輯窗口中畫一個小的圓球(用它來表示動點)。選中此圓球，右擊鼠標，在彈出的右鍵菜單中選擇“自定義動畫”命令，打開“自定義動畫”任務窗格。在此任務窗格中點擊“添加效果→動作路徑→正弦波”命令，如圖1所示。

　　那么，您會看到編輯窗口中的圓球會沿一個正弦波路徑運動。當它停止運動后，您就可以看到一個正弦波出現了。選中它，您可以利用控制句柄調整其大小或進行旋轉操作。如圖2所示。

　　不過，先別高興太早，在放映時，您只能看到圓球沿該路徑運動，路徑本身(正弦波)是不會顯示出來的。想顯示正弦波嗎?那咱們得動動手。

　　點擊菜單命令“視圖→顯示比例…”，在打開的“顯示比例”對話框中選擇“100%”，按下“Print Screen”鍵，將屏幕拷貝下來并粘貼到畫圖板中，進行適當的編輯，只保留路徑部分，保存。

　　然后點擊菜單命令“插入→圖片→來自文件…”，將路徑圖插入到編輯窗口中，仔細調整圖片的位置，使圖片中的路徑與編輯窗口中的路徑完全重合(可以按下Ctrl鍵并配合小鍵盤上的方向鍵實現逐象素移動)。別忘了調整一下小球的“疊放次序”啊，保險起見，將它調到頂層好了(調整方法是右擊小球，在右鍵菜單中點擊“疊放次序→置于頂層”命令)。好了，現在，您可以放映一下，感覺一下效果了。

　　我們可以調整一下小球運動的速度，以獲得更佳的演示效果:雙擊正弦波路徑，打開3所示的“正弦波”對話框。點擊“計時”選項卡，看到了嗎?

　　默認情況下是兩秒鐘完成動畫的，當然會感覺快了。在“速度”輸入框中輸入您所希望的時間(以秒為單位)，然后點擊“確定”按鈕就可以了。

二、定制正弦型函數圖象

　　雖然上面的方法制作起來簡單快捷，但其中的不便之處也是顯而易見的。那就是它不能按我們上課的實際需要精確演示函數圖象。在教學實際中，我們經常要根據不同的A、ω、φ值畫出準確的y=Asin(ωx+φ)圖象。顯然，上面的方法是不可能完成的。不過，在PowerPoint中，利用VBA，還是可以使我們的這一要求得到滿足的。

　　首先點擊菜單命令“視圖→工具欄→控件工具箱”，打開控件工具箱工具欄。點擊工具欄中的“文本框”工具，在編輯窗口中拖放三個文本輸入框。我們將利用此三個文本框分別接收幻燈片放映時輸入的A、ω、φ的值，并利用這三個值畫出函數y=Asin(ωx+φ)圖象。

　　點擊控件工具箱中的“命令按鈕”工具，在編輯窗口中拖放一個按鈕。選中它，點擊右鍵，在彈出的快捷菜單中選擇“屬性”命令，打開“屬性”對話框。如圖4所示。將“Caption”右側的內容改為“畫圖象”，并將“AutoSize”右側的“False”改為“True”。其它的可以采用默認形式。點擊“確定”按鈕。

　　仍然選中“畫圖象”命令按鈕，點擊右鍵，在彈出的快捷菜單中選擇“查看代碼”命令，打開VBA代碼編輯窗口。在窗口輸入如下代碼:

　　 Private Sub CommandButton1_Click()
　　 A = Val(TextBox1.Text) * 20
　　 B = Val(TextBox2.Text)
　　 C = Val(TextBox3.Text) * 3.14 * 20 / 180
　　 SlideShowWindows(1).View.DrawLine 70, 200, 600, 200
　　 SlideShowWindows(1).View.DrawLine 100, 60, 100, 400
　　 Do While Count < 450
　　 x1 = Count + 100
　　 y1 = -A * Sin((B * Count + C) / 20) + 200
　　 Count = Count + 1
　　 x2 = Count + 100
　　 y2 = -A * Sin((B * Count + C) / 20) + 200
　　 SlideShowWindows(1).View.DrawLine x1, y1, x1, y2
　　 Loop
　　 End Sub

　　放映一下，輸入三個變量值，點擊“畫圖象”按鈕，看看效果如何?如圖5所示(最后一個文本框應輸入φ的角度數)。

　　您可以多次輸入數據，畫出多個函數圖象以方便觀察。要清除這些圖象，可以用上面的方法再做一個按鈕，按鈕上的文字設置為“清除圖象”，編輯代碼為:

　　Private Sub CommandButton3_Click()
　　SlideShowWindows(1).View.EraseDrawing
　　End Sub

　　想要一個坐標系?呵呵，如果您不怕麻煩，當然可以了。做第三個按鈕，按鈕文字為“畫坐標系”，編輯代碼為:

　　rivate Sub CommandButton3_Click()
　　h = 100
　　k = 200
　　Length = 15.7
　　Number = 500
　　Dim xx
　　xx = 1
　　Do While xx < Number
　　If xx Mod 4 = 0 Then
　　SlideShowWindows(1).View.DrawLine h + xx * Length, k - 7, h + xx * Length, k
　　SlideShowWindows(1).View.DrawLine h - xx * Length, k - 7, h - xx * Length, k
　　SlideShowWindows(1).View.DrawLine h, k - xx * (Length + 4.3), h + 7, k - xx * (Length + 4.3)
　　SlideShowWindows(1).View.DrawLine h, k + xx * (Length + 4.3), h + 7, k + xx * (Length + 4.3)
　　Else
　　SlideShowWindows(1).View.DrawLine h + xx * Length, k - 3, h + xx * Length, k
　　SlideShowWindows(1).View.DrawLine h - xx * Length, k - 3, h - xx * Length, k
　　SlideShowWindows(1).View.DrawLine h, k - xx * (Length + 4.3), h + 3, k - xx * (Length + 4.3)
　　SlideShowWindows(1).View.DrawLine h, k + xx * (Length + 4.3), h + 3, k + xx * (Length + 4.3)
　　End If
　　xx = xx + 1
　　Loop
　　SlideShowWindows(1).View.DrawLine h, k, h + xx * Length, k
　　SlideShowWindows(1).View.DrawLine h - xx * Length, k, h, k
　　SlideShowWindows(1).View.DrawLine h, k, h, k - xx * Length
　　SlideShowWindows(1).View.DrawLine h, k, h, k + xx * Length
　　End Sub

　　行了，再試一次。如圖6所示。呵呵，夠“專業”吧?用它來演示正弦波，不錯吧?

分享：PowerPoint XP處理多媒體技巧
為了能更好地展示演示效果，許多人已經不滿足在幻燈片中插入精彩的圖象了，他們現在又將精力瞄準在了很時尚的動畫以及動感十足的多媒體視頻上了。為了能更好地幫助大家合理地在幻燈片中插入和播放動畫和多媒體視頻文件，本文特向大家介紹PowerPoint XP處理動畫和視頻方