在我们用PPT进行演示、宣讲时，经常有间歇、或者留一些时间让听众思考的情况。

这时显示一个倒计时，是常见的需求。

很多回答利用插件或者用一些变通的方法都可以实现。

这里介绍一个用PPT的VBA实现的方式，定制性比较强。

第一步： 先插入一个倒计时的按钮形状，修改颜色、大小和设置字体

第二步：关键步骤，修改这个形状的命名名称（vba中需要调用）。打开选择窗格，这里可以修改对象名称，比如修改为timer

第三步：如果没有开启开发者工具，从 开始菜单 > 选项 中，自定义功能区中，选中开发工具，保存

第四步： 进入开发工具，选择 Visual Basic，打开VBA编程界面。新建一个模块

第五步： 插入如下代码，设置30秒倒计时（根据需要调整）

Sub countdown()

	Dim time As Date
	time = Now()

	Dim count As Integer
	count = 30  '倒计时30s

	time = DateAdd("s", count, time)

	Do Until time < Now()
	DoEvents
	ActivePresentation.SlideShowWindow.View.Slide.Shapes("timer").TextFrame.TextRange = Format((time - Now()), "hh:mm:ss")
	Loop

End Sub

第六步：

回到PPT中，选择形状，插入动作，动作类型为macro宏，也就是我们刚定义的脚本

确定完成。

这时，需要倒计时的时候，运行PPT，点击这个按钮即可。