使用VBA在PowerPoint中创建倒计时器

标签：VBA，PowerPoint编程

我们可以借助于PPT来倒计时，如下图1所示。

图1

首先，在幻灯片中插入一个矩形形状，用来显示倒计时时间。为便于识别，将该形状命名为“countdown”。

打开VBE，插入一个标准模块，输入下面的代码：

Sub CountDown()
 Dim time As Date
 time = Now()
 
 Dim count As Integer
 '假设倒计时30秒
 count = 30
 
 time = DateAdd("s", count, time)
 
 Do Until time < Now()
   DoEvents
   ActivePresentation.SlideShowWindow.View.Slide.Shapes("countdown").TextFrame.TextRange = Format((time - Now()), "hh:mm:ss")
 Loop
End Sub

代码中，设置的是倒计时30秒，你可以根据实际情况调整。

回到幻灯片，选择矩形形状，单击功能区“插入”选项卡“链接”组中的“动作”按钮，如下图2所示。

图2

在弹出的“操作设置”对话框中，选取“运行宏”单选按钮，在其下拉列表中选择CountDown过程，如下图3所示。

图3

在幻灯片中，可以设置矩形中的字体及大小，调整矩形位置等。然后，点击放映幻灯片，在矩形中单击，即可开始倒计时，正如上图1所示。

接下来，我们介绍实现在PPT中显示计时的多种情形下的VBA代码。

未完待续……