PPT VBA十五分钟倒计时

类似于前面的倒计时代码，我们可以在 PPT VBA 中使用 Application.Wait 方法和 Timer 函数结合实现倒计时功能。具体代码如下：

Sub Countdown()
    Dim count As Integer
    
    count = 900 ' 设置倒计时时间为 15 分钟，单位为秒
    
    Do While count > 0
        ActivePresentation.SlideMaster.Shapes("Countdown").TextFrame.TextRange.Text = "倒计时剩余时间：" & Format(count \ 60, "00") & ":" & Format(count Mod 60, "00")
        count = count - 1
        Application.Wait (Now + TimeValue("0:00:01"))
    Loop
    
    ActivePresentation.SlideMaster.Shapes("Countdown").TextFrame.TextRange.Text = "倒计时结束！"
End Sub

在上面的代码中，我们先将倒计时时间设置为 15 分钟（即 900 秒），然后在循环中将倒计时剩余时间（格式为 mm:ss）更新到 PPT 主母版中的名为“Countdown”的文本框中，并使用 Application.Wait 方法暂停 1 秒钟，直到倒计时结束。最后在文本框中输出“倒计时结束！”的提示信息。

需要注意的是，这里假设 PPT 主母版中已经存在名为“Countdown”的文本框，如果不存在需要先在母版中添加对应的文本框。