基于PowerPoint 2010的資源整合技巧

孫娟

【中圖分類號】G622 【文獻標識碼】A 【文章編號】2095-3089（2016）07-0222-01

PowerPoint 2010 是Microsoft Office 2010套件中的一款演示文稿圖形程序，是功能強大的演示文稿制作軟件。學起來既簡單又容易上手，也不用掌握復雜的腳本語言就能制作出精美的演示文稿，所以用PPT制作課件就成為了大多數老師的首選。可能老師們在制作課件時都遇見過這樣的問題：①把PPT課件從自己的計算機拷貝到其他計算機，原有的視頻和flash就不能正常播放了。②如何正確嵌入Word和PowerPoint文檔。③怎樣制作智能交互的檢測試題，實現智能檢測，自動予以反饋和提示。在自己的日常工作就碰到了以上幾個常見的問題，通過解決以上問題，總結出以下幾點技巧供大家參考。

一、制作任意地方都能打開的flash

首先，在菜單欄添加【開發工具】菜單。過程是：⑴選擇【文件】|【選項】命令。⑵在彈出的“PowerPoint選項”對話框中選擇“自定義功能區”選項卡令，從左面的下拉位表選擇 “主選項卡”，選擇“開發工具”選項。⑶單擊“添加”按鈕，添加開發工具到右面的“主選項卡”命令菜單下。⑷選擇“開發工具”復選框，單擊“確定”完成 “開發工具”的添加。

其次，添加“shockwave Flash Object”控件。選擇“開發工具”命令，單擊“其它控件”按鈕，從“其它控件”窗口中查找并選擇“shockwave Flash Object”對象并確定。在窗口中拖動十字形光標繪制Flash控件。最后設置“shockwave Flash Object”控件的屬性。在繪制的控件上單擊右鍵，選擇“屬性”命令，在屬性欄中設置嵌入影片EmbedMovie的屬性值為True。在Movie屬性旁的空白單元格中，輸入Flash 文件的完整驅動器路徑，包括文件名和擴展名.swf，這樣flash隨PPT文檔不論被拷貝到任何地方都能正常播放。

二、嵌入Word文檔的方法

為了便于教師之間的交流和學生的自學，我們都會想盡辦法進行資源的整合，優化課件頁面的顯示內容、顯示方式和顯示順序等，盡量做到大方、美觀。課件應隨著閱讀的步伐逐漸的通過一定方式顯示提示性的文字，打開相應的參考資料，引導讀者順著教師課件的思路進行學習，而不是把所有的資料一覽無余的展現在讀者的眼前，這樣展現的資料就對讀者失去了吸引力，中斷了探索的欲望，所以在PPT中嵌入word文檔資料就顯得很有必有。

制作過程是：⑴選擇【插入】|【對象】命令。⑵在彈出的【插入對象】對話框中選擇“由文件創建”單選按鈕，單擊“瀏覽”按鈕。⑶選擇事先準備好的word參考資料，選中“顯示為圖標”復選框，再單擊“更改圖標”按鈕，在彈出的“更改圖標”對話框中選擇一個word圖標，并更改文檔標題，之后單擊“確定”按鈕。

選中在頁面上顯示的word圖標，選擇【動畫】|【添加動畫】|【OLE操作動作】，彈出“添加OLE操作動作”對話框，選擇“打開”，然后“確定”，如圖所示。最后選擇【觸發】|【對象】即可完成設置。單擊播放按鈕，單擊word圖標就可以在PPT放映模式下打開word文檔。

如要在同一頁面上同時添加幾個word文檔，就要按照添加的先后順序依次添加【OLE操作動作】，【觸發】|【對象】的設置過程，順序不能亂，否則就會出現單擊的是A文檔的圖標，打開的卻是B文檔的現象。

三、用VBA制作智能檢測題

VBA是 Visual Basic for Applications的簡稱，是高級語言Visual Basic的子集，是寄生于VB應用程序的版本。主要能用來擴展Windows的應用程式功能，使已有的Microsoft Office應用程序自動化，大幅度提高了辦公效率。

如圖所示的就用VBA技術制作一道判斷平年和閏年的單選檢測試題，要求在課件中實現以下交互功能：當學生選擇A、B選項時課件能給出判斷和提示，選擇A選項時B選項不可用，選擇B選項時A選項不可用，預防學生短時間內挨個嘗試，單擊“再來一次”按鈕時重新選擇，如圖9所示。（正確答案為B選項）

具體的制作過程是：⑴插入兩個水平文本框，輸入標題和題干。⑵選擇【開發工具】|【文本框】控件，然后在頁面合適的位置拖動，繪出一個文本框按鈕。⑶選擇【開發工具】|【選項按鈕】控件，然后在頁面合適的位置拖動，繪出兩個選項按鈕。分別在其上單擊右鍵，選擇“屬性”命令彈出屬性窗口，修改“Caption”屬性為“A.平年”、“B.閏年”，“Value”值都為“False”。⑷選擇【開發工具】|【命令按鈕】控件，在當前頁面繪制一個命令按鈕，在按鈕上右擊，在彈出的快捷菜單中選擇“屬性”命令，修改其“Caption”屬性為：再試一次。⑸給兩個選項按鈕添加代碼：分別雙擊選項按鈕，彈出代碼窗口，寫入一下代碼

Private Sub OptionButton1_Click（）

Dim year As Integer

OptionButton2.Enabled = False

year = Val（TextBox1.Text）

If year Mod 4 <> 0 And year Mod 100 <> 0 Or year Mod 400 <> 0 Then

MsgBox Str（year） & "年是平年，恭喜你答對了"

Else

MsgBox （"請仔細思考！！"）

End If

End Sub

Private Sub OptionButton2_Click（）

Dim year As Integer

OptionButton1.Enabled = False

year = Val（TextBox1.Text）

If year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0 Then

MsgBox Str（year） & "年是潤年，恭喜你答對了"

Else

MsgBox （"請仔細思考??！"）

End If

End Sub

⑹給一個命令按鈕添加代碼：

Private Sub CommandButton1_Click（）

OptionButton1.Value = False

OptionButton1.Enabled = True

OptionButton2.Value = False

OptionButton2.Enabled = TrueEnd Subendprint