基于PowerPoint 2010的資源整合技巧

孫娟

【中圖分類號】G622 【文獻(xiàn)標(biāo)識碼】A 【文章編號】2095-3089（2016）07-0222-01

PowerPoint 2010 是Microsoft Office 2010套件中的一款演示文稿圖形程序，是功能強(qiáng)大的演示文稿制作軟件。學(xué)起來既簡單又容易上手，也不用掌握復(fù)雜的腳本語言就能制作出精美的演示文稿，所以用PPT制作課件就成為了大多數(shù)老師的首選?？赡芾蠋焸冊谥谱髡n件時(shí)都遇見過這樣的問題：①把PPT課件從自己的計(jì)算機(jī)拷貝到其他計(jì)算機(jī)，原有的視頻和flash就不能正常播放了。②如何正確嵌入Word和PowerPoint文檔。③怎樣制作智能交互的檢測試題，實(shí)現(xiàn)智能檢測，自動(dòng)予以反饋和提示。在自己的日常工作就碰到了以上幾個(gè)常見的問題，通過解決以上問題，總結(jié)出以下幾點(diǎn)技巧供大家參考。

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

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

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

二、嵌入Word文檔的方法

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

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

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

如要在同一頁面上同時(shí)添加幾個(gè)word文檔，就要按照添加的先后順序依次添加【OLE操作動(dòng)作】，【觸發(fā)】|【對象】的設(shè)置過程，順序不能亂，否則就會出現(xiàn)單擊的是A文檔的圖標(biāo)，打開的卻是B文檔的現(xiàn)象。

三、用VBA制作智能檢測題

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

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

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

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 （"請仔細(xì)思考?。?）

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 （"請仔細(xì)思考！！"）

End If

End Sub

⑹給一個(gè)命令按鈕添加代碼：

Private Sub CommandButton1_Click（）

OptionButton1.Value = False

OptionButton1.Enabled = True

OptionButton2.Value = False

OptionButton2.Enabled = TrueEnd Subendprint