PowerPoint中显示时间的方法

1、PowerPoint 中显示时间的方法摘 要： 本文总结了三种在播放PowerPoint 课件时显示系统时间的简单方法：利用第三方时钟软件嵌入Flash动画，通过VBA调用 Windows API 函数显示时间。关键词：PowerPoint； Flash动画；时间显示；VBA中图分类号：G434 文献标识码：B 文章编号：1673-8454（ 2009） 12-0066-03引言PowerPoint 是教学过程中使用得最多的多媒体软件，由于它使用简单，容易上手，得到了绝大多数教师的青睐。在用 PowerPoint 进行教学的过程中，很多教师提出了播放时显示系统时间，以便掌握教学进度的要求，由于

2、PowerPoint 并不提供相应的功能，笔者通过探索，总结出三种简单、可行的方法。要在播放课件的时候显示系统时间，要求第三方软件具有前端显示的功能(Always on top) 。在这里，笔者推荐一款免费的时钟软件。该软件用汇编语言编写，短小精巧，可以 随意移动时钟窗口位置。下载地址：30:22366/mysoft/clock.zip 。在播放幻灯片之前，先运行该软件。运行效果如图1 所示(右上角显示当前时间)：二、与 Flash 动画结合起来显示时间这种方法是在幻灯片母版中插入能显示时间的Flash动画。具体步骤如下：1. 用 Flash 制作一个能显示

3、时间的动画(1)用Flash新建一个文档，将其大小设置为“110×40”像素。( 2)在第一帧用文本工具添加一个文本对象，设置其文本类型为“动态文本”，字体为“arial”，字号为“20”，并将其“变量名”设置为“mytime ”。( 3)打开“动作”面板，在专家模式下输入以下代码：NowTime = new Date();hour = NowTime.getHours();if(length(hour) < 2)hour = '0' + hour;minutes = NowTime.getMinutes();if(length(minutes) < 2)

4、 minutes = '0' + minutes;seconds = NowTime.getSeconds();if(length(seconds) < 2) seconds = '0' + seconds;mytime = hour + ":" + minutes+ ":" + seconds;（ 4）在该帧之后插入一个关键帧，打开动作面板，输入以下代码：gotoAndPlay（1）（ 5）导出影片至“C:time.swf ”备用。2. 在 PowerPoint 中插入 Flash 动画在PowerPoint 中插

5、入 Flash动画有多种方法，这里介绍比较简单的一种：（1）将幻灯片试图切换为母版视图。（ 2）从“视图”“工具栏”中显示“控件工具箱” ，在“其他控件”选择“Shockwave Flash Object”，然后在幻灯片母版的右上角绘制一个矩形，作为Flash动画的显示区域。（ 3）选中该控件，单击“控件工具箱”上的“属性”按钮，打开属性对话框。（ 4）将该控件的“movie”属性设置为“C:time.swf ”，“ play”属性设置为“True”， “ quality”属性设置为“1”。至此，已成功在PowerPoint 中插入 Flash动画，由于是针对母版进行的操作，每一张幻灯片在播放

6、的时候都会动态显示当前时间。具体效果如图2 所示 (右上角显示系统时间)：三、用 PowerPoint 内置的 VBA编程实现时间动态显示由于 PowerPoint 没有提供计时器控件，因此，需要调用API 函数实现时间的动态显示。Shyam Pillai 介绍了利用PowerPoint 2000 提供的 AddressOf操作调用API 函数的方法。利用该方法，可以通过调用Windows 的 SetTimer 和 KillTimer函数实现时间的动态显示。具体方法如下：1 . 建立TimerOnOff 宏在 PowerPoint 中打开“ Visual Basic编辑器”，新建一个“模块”

7、，并输入以下代码：Option ExplicitDeclare Function SetTimer Lib "user32" _(ByVal hwnd As Long, _ByVal nIDEvent As Long, _ByVal uElapse As Long, _ByVal lpTimerFunc As Long) As LongDeclare Function KillTimer Lib "user32"ByVal hwnd As Long, _ByVal nIDEvent As Long) As LongPublic TimerID As Lo

8、ngPublic bTimerState As BooleanSub TimerOnOff()If bTimerState = False ThenTimerID = SetTimer(0, 0, 1000, AddressOf TimerProc)If TimerID = 0 ThenMsgBox "Unable to create the timer", vbCritical + vbOKOnly, "Error"Exit SubEnd IfbTimerState = TrueElseTimerID = KillTimer(0, TimerID)If

9、 TimerID = 0 ThenMsgBox "Unable to stop the timer", vbCritical + vbOKOnly, "Error"End IfbTimerState = FalseEnd IfEnd SubSub TimerProc(ByVal hwnd As Long, _ByVal uMsg As Long, _ByVal idEvent As Long, _ByVal dwTime As Long)ActivePresentation.SlideMaster.HeadersFooters.Footer.Text=

10、Format(Time, "hh:nn:ss")End Sub2 .设置启动TimerOnOff 宏的界面打开“控件工具箱”，在幻灯片的第一页绘制一个命令按钮，将其“Caption”属性设置为“打开/关闭时钟”，并为其 click 事件编写如下代码：call TimerOnOff至此，在放映幻灯片时，用鼠标单击该按钮，就可以启动动态时钟，该时钟会在每张幻灯片的页脚显示当前时间。具体效果如图3 所示(下方显示系统时间)：四、结束语本文所提出的PowerPoint 显示时间的三种方法中，第一种方法最简单，使用之前只需经过简单的设置就能达到目的；第二种方法用Activex 在 PowerPoint 母版中嵌入Flash 动画，该动画需要与幻灯片同在；第三种方法使用了VBA编程和Windows 的 API 函数，相对复杂一点，但这是唯一不需要第三方软件支持的方法，在手头缺乏第三方软件时，这也是一个不错的选择。但唯一不足之处就是需