幻灯片计时浅析
开篇：润墨网以专业的文秘视角，为您筛选了一篇幻灯片计时浅析范文，如需获取更多写作素材，在线客服老师一对一协助。欢迎您的阅读与分享！
一、使用幻灯片自带的VB编辑器编程实现
以一个有三张幻灯片的课件为例。
第一步：打开第一张幻灯片，选择PPT菜单栏“视图―工具栏―控件工具箱”，打开控件工具箱，选择命令按钮控件，在幻灯片左下角拖出一个命令按钮。右击按钮图标，打开“属性”对话框，将Caption的值改为“开始”。
第二步：选择控件工具箱中的文本框，在按钮下方拖出一个文本框；右击文本框，打开属性对话框，进行文字格式的设置。再次右击文本框控件，选择快捷菜单中的“叠放次序―置于顶层”。
第三步：选中文本框，按Ctrl+C快捷键把文本框复制，然后依次选择第二张、第三张幻灯片，按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??摇获得系统时间，可以精确到0.001秒
Do While js=True
If Timer>=Start+1 Then??摇如果与前一次记录的初始时间相差1秒时
Start=Timer??摇重新记录初始时间
tt=tt-1??摇剩余总秒数少1秒
If tt
X=Int（tt /?摇60）??摇剩余总秒数化为分：秒，并显示在各幻灯片
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结束播放幻灯片时，停止倒计时
Private Sub App_SlideShowEnd（ByVal Pres As Presentation）
jishi=False
End Sub
第五步：在编辑窗口中选择菜单“插入―模块”，在属性窗口中把“模块1”名称改为“ClassModule”。在代码窗口中编写用于初始化刚才制作的EventClassModule模块的程序代码。
Dim X As New EventClassModule '?摇创建一个类对象，并把它与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”选项，出现“+”字光标，再将该光标移动到PowerPoint的编辑区域中，画出适合大小的矩形框。
第三步：右击矩形框，在快捷菜单中选择“属性”，出现属性页。找到“MOVIE”项，在其中输入完整的Flash地址，例如：E:\计时器.swf，注意后缀名一定要填写完整。
2.“插入对象”
采用这种方式，在播放幻灯片时会弹出一个播放窗口，它可以响应所有的Flash鼠标事件。还可以根据需要在播放的过程中调整窗口的大小。它的缺点是播放完了以后要点击［关闭］按钮来关闭窗口。操作步骤如下：
第一步：运行PowerPoint程序，打开要插入动画的幻灯片。
第二步：在菜单中选择“插入”选项，从打开的下拉菜单中选择“对象”。在弹出的“插入对象”对话框中选择“由文件创建”，单击［浏览］，选中需要插入的Flas文件，最后单击［确定］返回幻灯片。
第三步：完成上面操作后，幻灯片上就出现了一个Flash文件的图标，我们可以更改图标的大小或者移动它的位置。在这个图标上右击鼠标，选中“动作设置”命令。在弹出的窗口中选择“单击鼠标”或“鼠标移动”两个标签都可以，再点击“对象动作”，在下拉菜单中选择“激活内容”，最后单击［确定］，完成插入动画的操作。
三、使用幻灯片的“加载宏”功能，添加计时项
下载一个“计时器.ppa”文件，启用宏，在幻灯片菜单栏中便添加了一个“计时器”项。
操作步骤如下：
第一步：选择菜单栏“工具―宏―安全性”，将安全级别设置为“低”。
第二步：选择菜单栏“工具―加载宏”，在弹出的对话框中进行添加，然后关闭对话框。
第三步：在以上操作完成后，菜单栏中便添加了“计时器”选项。可以选择此选项，进行时间及计时方式的设置。
参考文献：
［1］吴祥恩，李兆君，赵鹏宇.PPT课件交互策略及实现方法.中小学信息技术教育，2009，（9）.
［2］汪.基于VBA的交互式课件设计.办公自动化，2009，（18）.
［3］冯海荣，袁磊.中小学课堂应用Flash课件的策略研究.软件导刊，2010，（07）.
本文为全文原貌 未安装PDF浏览器用户请先下载安装 原版全文