幻燈片計(jì)時(shí)淺析

一、使用幻燈片自帶的VB編輯器編程實(shí)現(xiàn)

以一個(gè)有三張幻燈片的課件為例。

第一步：打開第一張幻燈片，選擇PPT菜單欄“視圖—工具欄—控件工具箱”，打開控件工具箱，選擇命令按鈕控件，在幻燈片左下角拖出一個(gè)命令按鈕。右擊按鈕圖標(biāo)，打開“屬性”對(duì)話框，將Caption的值改為“開始”。

第二步：選擇控件工具箱中的文本框，在按鈕下方拖出一個(gè)文本框；右擊文本框，打開屬性對(duì)話框，進(jìn)行文字格式的設(shè)置。再次右擊文本框控件，選擇快捷菜單中的“疊放次序—置于頂層”。

第三步：選中文本框，按Ctrl+C快捷鍵把文本框復(fù)制，然后依次選擇第二張、第三張幻燈片，按Ctrl+V快捷鍵把文本框粘貼，讓第二張和第三張幻燈片上都得到一個(gè)相同的文本框，并保持在同一個(gè)位置。

第四步：選擇PPT菜單欄“工具—宏—Visual Basic編輯器，打開編輯器窗口。在編輯窗口中選擇菜單“插入—類模塊”，在工程資源管理窗口中會(huì)自動(dòng)添加一個(gè)名為“類1”的模塊，在屬性窗口中把名稱改為“EventClassModule”。

第五步：在代碼窗口中編寫用于捕捉PPT幻燈片開始播放的事件，以及計(jì)時(shí)程序代碼。

Public WithEvents App As Application

Private js As Boolean?謖?搖開始或停止倒計(jì)時(shí)程序

?謖?搖PPT開始播放幻燈片時(shí)

Private Sub App_SlideShowBegin（ByVal Wn As Slide Show Window）

Dim tt As Integer

Dim X，Y As Integer

Dim Start As Single

tt=2700?搖?搖?謖?搖5分鐘倒計(jì)時(shí)，初始值為300秒

js=True?謖?搖讓倒計(jì)時(shí)程序開始工作

Start=Timer?謖?搖獲得系統(tǒng)時(shí)間，可以精確到0.001秒

Do While js=True

If Timer>=Start+1 Then?謖?搖如果與前一次記錄的初始時(shí)間相差1秒時(shí)

Start=Timer?謖?搖重新記錄初始時(shí)間

tt=tt-1?謖?搖剩余總秒數(shù)少1秒

If tt<=0 Then js=False?謖?搖如果倒計(jì)時(shí)完成時(shí)，停止倒計(jì)時(shí)

X=Int（tt /?搖60）?謖?搖剩余總秒數(shù)化為分：秒，并顯示在各幻燈片

Y=tt Mod 60

Slide1.TextBox1.Text=CStr（X \":\" Y）

Slide2.TextBox1.Text=CStr（X \":\" Y）

Slide3.TextBox1.Text=CStr（X \":\" Y）

Else

DoEvents

End If

Loop

End Sub ?謖?搖PPT結(jié)束播放幻燈片時(shí)，停止倒計(jì)時(shí)

Private Sub App_SlideShowEnd（ByVal Pres As Presentation）

jishi=False

End Sub

第五步：在編輯窗口中選擇菜單“插入—模塊”，在屬性窗口中把“模塊1”名稱改為“ClassModule”。在代碼窗口中編寫用于初始化剛才制作的EventClassModule模塊的程序代碼。

Dim X As New EventClassModule '?搖創(chuàng)建一個(gè)類對(duì)象，并把它與PPT連接

Sub InitializeApp（）

Set X.App=Application

End Sub

第六步：雙擊工程資源管理器中的Slide1對(duì)象，在代碼窗口中編寫代碼。

Private Sub Image1_MouseMove（ByVal Button As Integer，ByVal Shift As Integer，ByVal X As Single，ByVal Y As Single）

InitializeApp

二、在幻燈片母版中使用Flash計(jì)時(shí)器

1.使用“控件”插入Flash計(jì)時(shí)器

第一步：選擇菜單欄“視圖—母版—幻燈片母版”，在幻燈片母版窗口選擇菜單欄“視圖—工具欄—控件工具箱”。

第二步：在“控件工具箱”當(dāng)中選擇“其他控件”按鈕，在隨后打開的控件選項(xiàng)界面中，選擇“Shockwave FlashObject”選項(xiàng)，出現(xiàn)“+”字光標(biāo)，再將該光標(biāo)移動(dòng)到PowerPoint的編輯區(qū)域中，畫出適合大小的矩形框。

第三步：右擊矩形框，在快捷菜單中選擇“屬性”，出現(xiàn)屬性頁(yè)。找到“MOVIE”項(xiàng)，在其中輸入完整的Flash地址，例如：E:\\計(jì)時(shí)器.swf，注意后綴名一定要填寫完整。

2.“插入對(duì)象”

采用這種方式，在播放幻燈片時(shí)會(huì)彈出一個(gè)播放窗口，它可以響應(yīng)所有的Flash鼠標(biāo)事件。還可以根據(jù)需要在播放的過(guò)程中調(diào)整窗口的大小。它的缺點(diǎn)是播放完了以后要點(diǎn)擊［關(guān)閉］按鈕來(lái)關(guān)閉窗口。操作步驟如下：

第一步：運(yùn)行PowerPoint程序，打開要插入動(dòng)畫的幻燈片。

第二步：在菜單中選擇“插入”選項(xiàng)，從打開的下拉菜單中選擇“對(duì)象”。在彈出的“插入對(duì)象”對(duì)話框中選擇“由文件創(chuàng)建”，單擊［瀏覽］，選中需要插入的Flash動(dòng)畫文件，最后單擊［確定］返回幻燈片。

第三步：完成上面操作后，幻燈片上就出現(xiàn)了一個(gè)Flash文件的圖標(biāo)，我們可以更改圖標(biāo)的大小或者移動(dòng)它的位置。在這個(gè)圖標(biāo)上右擊鼠標(biāo)，選中“動(dòng)作設(shè)置”命令。在彈出的窗口中選擇“單擊鼠標(biāo)”或“鼠標(biāo)移動(dòng)”兩個(gè)標(biāo)簽都可以，再點(diǎn)擊“對(duì)象動(dòng)作”，在下拉菜單中選擇“激活內(nèi)容”，最后單擊［確定］，完成插入動(dòng)畫的操作。

三、使用幻燈片的“加載宏”功能，添加計(jì)時(shí)項(xiàng)

下載一個(gè)“計(jì)時(shí)器.ppa”文件，啟用宏，在幻燈片菜單欄中便添加了一個(gè)“計(jì)時(shí)器”項(xiàng)。

操作步驟如下：

第一步：選擇菜單欄“工具—宏—安全性”，將安全級(jí)別設(shè)置為“低”。

第二步：選擇菜單欄“工具—加載宏”，在彈出的對(duì)話框中進(jìn)行添加，然后關(guān)閉對(duì)話框。

第三步：在以上操作完成后，菜單欄中便添加了“計(jì)時(shí)器”選項(xiàng)。可以選擇此選項(xiàng)，進(jìn)行時(shí)間及計(jì)時(shí)方式的設(shè)置。

參考文獻(xiàn)：

［1］吳祥恩，李兆君，趙鵬宇.PPT課件交互策略及實(shí)現(xiàn)方法.中小學(xué)信息技術(shù)教育，2009，（9）.

［2］汪璟.基于VBA的交互式課件設(shè)計(jì).辦公自動(dòng)化，2009，（18）.

［3］馮海榮，袁磊.中小學(xué)課堂應(yīng)用Flash課件的策略研究.軟件導(dǎo)刊，2010，（07）.