幻燈片計時淺析

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

以一個有三張幻燈片的課件為例。

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

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

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

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

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

Public WithEvents App As Application

Private js As Boolean?謖?搖開始或停止倒計時程序

?謖?搖PPT開始播放幻燈片時

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分鐘倒計時，初始值為300秒

js=True?謖?搖讓倒計時程序開始工作

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

Do While js=True

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

Start=Timer?謖?搖重新記錄初始時間

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

If tt<=0 Then js=False?謖?搖如果倒計時完成時，停止倒計時

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é)束播放幻燈片時，停止倒計時

Private Sub App_SlideShowEnd（ByVal Pres As Presentation）

jishi=False

End Sub

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

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

Sub InitializeApp（）

Set X.App=Application

End Sub

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

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

InitializeApp

二、在幻燈片母版中使用Flash計時器

1.使用“控件”插入Flash計時器

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

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

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

2.“插入對象”

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

第一步：運行PowerPoint程序，打開要插入動畫的幻燈片。

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

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

三、使用幻燈片的“加載宏”功能，添加計時項

下載一個“計時器.ppa”文件，啟用宏，在幻燈片菜單欄中便添加了一個“計時器”項。

操作步驟如下：

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

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

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

參考文獻：

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

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

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