标签: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代码。
未完待续……