PPT+VBA实现计时（倒计时）展示

今天碰到这样一个需求：在某个大屏上显示距离过去的某个时间点已经经过了**天**小时**分**秒，类似这样的需求还有比如：离某个重大活动还有**天**小时**分**秒。

对于程序员来说，第一反应是写个小软件全屏显示，但实际上PPT+VBA做起来也很简单，下面简单介绍一下步骤：

1、新建一个PPT文件，点击PPT软件的菜单“文件”——》“选项”，弹出的窗口左侧列表选择“自定义功能区”，右边在“自定义功能区”下方的“主选项卡”中勾选“开发工具”并确定：

3、再点击“开发工具”选项卡，点击“控件”面板中的“标签控件”，在页面中拖1个用于显示计时的标签框：

上述代码的含义是：在PPT开始播放时，启动定时器，每隔一秒运行一次timer函数，计算当前时间与2020/6/1 10:00:00之间经过了多少时间，这个起点时间是可以自己修改的

代码保存后，开始播放PPT，即可看到如下效果：

注意，PPT运行时可能会提示VBA禁用，点击允许即可。