一、使用幻灯片自带的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 本文为全文原貌 未安装PDF浏览器用户请先下载安装 原版全文