论文部分内容阅读
摘 要：本文总结了三种在播放PowerPoint课件时显示系统时间的简单方法：利用第三方时钟软件嵌入Flash动画，通过VBA调用Windows API函数显示时间。
关键词：PowerPoint；Flash动画；时间显示；VBA
中图分类号：G434文献标识码：B 文章编号：1673-8454（2009）12-0066-03
引言
PowerPoint是教学过程中使用得最多的多媒体软件，由于它使用简单，容易上手，得到了绝大多数教师的青睐。在用PowerPoint进行教学的过程中，很多教师提出了播放时显示系统时间，以便掌握教学进度的要求，由于PowerPoint并不提供相应的功能，笔者通过探索，总结出三种简单、可行的方法。
（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)
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中插入Flash动画有多种方法，这里介绍比较简单的一种：
（1）将幻灯片试图切换为母版视图。
（2）从“视图”→“工具栏”中显示“控件工具箱”，在“其他控件”选择“Shockwave Flash Object”，然后在幻灯片母版的右上角绘制一个矩形，作为Flash动画的显示区域。
（3）选中该控件，单击“控件工具箱”上的“属性”按钮，打开属性对话框。
（4）将该控件的“movie”属性设置为“C:\time.swf”，“play”属性设置为“True”，“quality”属性设置为“1”。
至此，已成功在PowerPoint中插入Flash动画，由于是针对母版进行的操作，每一张幻灯片在播放的时候都会动态显示当前时间。具体效果如图2所示（右上角显示系统时间）：
三、用PowerPoint内置的VBA编程实现时间动态显示
由于PowerPoint没有提供计时器控件，因此，需要调用API函数实现时间的动态显示。Shyam Pillai介绍了利用PowerPoint 2000提供的AddressOf操作调用API函数的方法。利用该方法，可以通过调用Windows的SetTimer和KillTimer函数实现时间的动态显示。具体方法如下：
1.建立TimerOnOff宏
在PowerPoint中打开“Visual Basic编辑器”，新建一个“模块”，并输入以下代码：
Option Explicit
Declare Function SetTimer Lib "user32" _
(ByVal hwnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" _
ByVal hwnd As Long, _
ByVal nIDEvent As Long) As Long
Public TimerID As Long
Public bTimerState As Boolean
Sub TimerOnOff()
If bTimerState = False Then
TimerID = SetTimer(0, 0, 1000, AddressOf TimerProc)
If TimerID = 0 Then
MsgBox "Unable to create the timer", vbCritical vbOKOnly, "Error"
Exit Sub
End If
bTimerState = True
Else
TimerID = KillTimer(0, TimerID)
If TimerID = 0 Then
MsgBox "Unable to stop the timer", vbCritical vbOKOnly, "Error"
End If
bTimerState = False
End If
End Sub
Sub TimerProc(ByVal hwnd As Long, _
ByVal uMsg As Long, _
ByVal idEvent As Long, _
ByVal dwTime As Long)
ActivePresentation.SlideMaster.HeadersFooters.Footer.Text = Format(Time, "hh:nn:ss")
End Sub
2.设置启动TimerOnOff宏的界面
打开“控件工具箱”，在幻灯片的第一页绘制一个命令按钮，将其“Caption”属性设置为“打开/关闭时钟”，并为其click事件编写如下代码：
call TimerOnOff
至此，在放映幻灯片时，用鼠标单击该按钮，就可以启动动态时钟，该时钟会在每张幻灯片的页脚显示当前时间。具体效果如图3所示（下方显示系统时间）：
四、结束语
本文所提出的PowerPoint显示时间的三种方法中，第一种方法最简单，使用之前只需经过简单的设置就能达到目的；第二种方法用Activex在PowerPoint母版中嵌入Flash动画，该动画需要与幻灯片同在；第三种方法使用了VBA编程和Windows的API函数，相对复杂一点，但这是唯一不需要第三方软件支持的方法，在手头缺乏第三方软件时，这也是一个不错的选择。但唯一不足之处就是需要设置“宏”的安全性等级，在打开课件时需要“启用宏”，此外PowerPoint不能自动运行宏，因此需要在演示开始之前手动打开时钟。从“工具”→“宏”中选择TimerOnOff宏后，点击运行即可，本文实例中采用命令按钮来实现。当然，不管使用哪种方法，由于时钟使用的是本地计算机的系统时间，因此均需在演示开始前校正系统时间。
关键词：PowerPoint；Flash动画；时间显示；VBA
中图分类号：G434文献标识码：B 文章编号：1673-8454（2009）12-0066-03
引言
PowerPoint是教学过程中使用得最多的多媒体软件，由于它使用简单，容易上手，得到了绝大多数教师的青睐。在用PowerPoint进行教学的过程中，很多教师提出了播放时显示系统时间，以便掌握教学进度的要求，由于PowerPoint并不提供相应的功能，笔者通过探索，总结出三种简单、可行的方法。
（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)
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中插入Flash动画有多种方法，这里介绍比较简单的一种：
（1）将幻灯片试图切换为母版视图。
（2）从“视图”→“工具栏”中显示“控件工具箱”，在“其他控件”选择“Shockwave Flash Object”，然后在幻灯片母版的右上角绘制一个矩形，作为Flash动画的显示区域。
（3）选中该控件，单击“控件工具箱”上的“属性”按钮，打开属性对话框。
（4）将该控件的“movie”属性设置为“C:\time.swf”，“play”属性设置为“True”，“quality”属性设置为“1”。
至此，已成功在PowerPoint中插入Flash动画，由于是针对母版进行的操作，每一张幻灯片在播放的时候都会动态显示当前时间。具体效果如图2所示（右上角显示系统时间）：
三、用PowerPoint内置的VBA编程实现时间动态显示
由于PowerPoint没有提供计时器控件，因此，需要调用API函数实现时间的动态显示。Shyam Pillai介绍了利用PowerPoint 2000提供的AddressOf操作调用API函数的方法。利用该方法，可以通过调用Windows的SetTimer和KillTimer函数实现时间的动态显示。具体方法如下：
1.建立TimerOnOff宏
在PowerPoint中打开“Visual Basic编辑器”，新建一个“模块”，并输入以下代码：
Option Explicit
Declare Function SetTimer Lib "user32" _
(ByVal hwnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" _
ByVal hwnd As Long, _
ByVal nIDEvent As Long) As Long
Public TimerID As Long
Public bTimerState As Boolean
Sub TimerOnOff()
If bTimerState = False Then
TimerID = SetTimer(0, 0, 1000, AddressOf TimerProc)
If TimerID = 0 Then
MsgBox "Unable to create the timer", vbCritical vbOKOnly, "Error"
Exit Sub
End If
bTimerState = True
Else
TimerID = KillTimer(0, TimerID)
If TimerID = 0 Then
MsgBox "Unable to stop the timer", vbCritical vbOKOnly, "Error"
End If
bTimerState = False
End If
End Sub
Sub TimerProc(ByVal hwnd As Long, _
ByVal uMsg As Long, _
ByVal idEvent As Long, _
ByVal dwTime As Long)
ActivePresentation.SlideMaster.HeadersFooters.Footer.Text = Format(Time, "hh:nn:ss")
End Sub
2.设置启动TimerOnOff宏的界面
打开“控件工具箱”，在幻灯片的第一页绘制一个命令按钮，将其“Caption”属性设置为“打开/关闭时钟”，并为其click事件编写如下代码：
call TimerOnOff
至此，在放映幻灯片时，用鼠标单击该按钮，就可以启动动态时钟，该时钟会在每张幻灯片的页脚显示当前时间。具体效果如图3所示（下方显示系统时间）：
四、结束语
本文所提出的PowerPoint显示时间的三种方法中，第一种方法最简单，使用之前只需经过简单的设置就能达到目的；第二种方法用Activex在PowerPoint母版中嵌入Flash动画，该动画需要与幻灯片同在；第三种方法使用了VBA编程和Windows的API函数，相对复杂一点，但这是唯一不需要第三方软件支持的方法，在手头缺乏第三方软件时，这也是一个不错的选择。但唯一不足之处就是需要设置“宏”的安全性等级，在打开课件时需要“启用宏”，此外PowerPoint不能自动运行宏，因此需要在演示开始之前手动打开时钟。从“工具”→“宏”中选择TimerOnOff宏后，点击运行即可，本文实例中采用命令按钮来实现。当然，不管使用哪种方法，由于时钟使用的是本地计算机的系统时间，因此均需在演示开始前校正系统时间。