vba 根据分辨率 调整窗口显示比例_如何优雅地在PPT中显示一个动态时钟，帮您精确把控演讲时间？...

在演讲或者讲课的时候，往往会有时间时间限制，所以如何精确地把控时间，就是一项需要关注的能力。大量的事前演练是必不可少的，但何不在PPT中插入一个动态数字时钟呢？

可能有些朋友知道，PPT中有一个插入“日期与时间”的功能选项，就能够解决这样的问题。而事实上呢，这样插入的时间并不会实时“走秒”，只有在切换PPT的时候才会更新一下时间，这并不是我们需要的结果。

这里介绍三种在PPT中显示动态数字时钟的方法。

借助插件

推荐一款免费、多功能的PPT插件OnekeyTools(简称OK插件)。下图是OK插件的官网，不但提供了PPT版插件，还有WPS版，更有该插件的相关视频、图文教程，可以说非常贴心了。

安装OK插件之后，切换到【OneKey Lite】菜单，在【辅助功能】菜单项之下有一个【数字时钟】，点击即可显示一个动态数字时钟，而且这个动态数字时钟是可以动态“走秒”的。

这个数字时钟默认样式是红底白字，右键【修改文字】可以更换字体、文字颜色，右键【更换背景】可以更换背景颜色或者设置背景图片。拖动这个数字时钟的左侧区域，可以将其移动到屏幕的任意位置。

需要注意的是，借助OK插件制作的动态数字时钟是以悬浮层的形式显示在电脑屏幕上的，而非嵌入PPT中，所以即便PPT最小化，数字时钟也会显示在屏幕上。若想关闭这个数字时钟，只需要在其上右键【关闭】即可。

其实，除了这里介绍的OK插件之外，还有很多效果更好、支持更多自定义选项的PPT插件可用，但它们几乎都是收费的，比如AutoDateTime、TM Timer、Dynamic Time等等，因此并不作推荐。

插入Flash数字时钟动画

虽然微软全系产品对Flash的支持越来越少了，但是Flash却也有着自己独特的优势，比如在本文介绍的PPT数字时钟解决方案中，它就是一个不错的选择。

笔者自己也曾将是一个Flash迷，收集了几个还算不错的Flash数字时钟小动画。

将这些Flash影片插入PPT中，适当调整其大小、位置即可。具体的做法是，选择【插入】菜单，插入【视频】【PC上的视频】，下拉选择“所有文件”，选择电脑上的Flash数字时钟动画，点击【插入】即可。

这种借助Flash影片的方式比较灵活，而且在PPT中也能得到较好的支持。

需要注意的是，高版本PPT可以直接借助插入【视频】功能插入Flash影片，或者直接将Flash拖入PPT页面内就可快速完成插入。而低版本的PPT可能需要借助【开发工具】菜单下的【其他控件】Shockweve Flash Object命令，才能正确插入Flash影片。

VBA代码实现

上述两种方法虽然效果不错，但都需借助外力，在很多场合可能会有诸多限制。其实Office提供的VBA功能也可以实现动态数字时钟的功能，而且效果也还不赖。

如下图所示，打开PPT文件时提示“安全警告”，我们选择【启用宏】，然后在放映PPT之前按下Alt+F8快捷键组合，运行宏“auto_open”，这样放映PPT的时候就可以在右下角动态更新时间。

这个效果是怎么做的呢？具体的可以先在母版视图下插入一个文本框，然后按Alt+F11快捷键组合打开VBA代码编辑窗口，然后新建一个类模块，命名为“cShapeClock”，并输入如下代码。

然后再新建一个模块，命名为“baseShapeClock”，并输入如下代码。

使用VBA代码的方式需要注意的是打开PPT的时候一定要启用宏，并在PPT放映之前手动运行宏auto_open，否则没有任何效果。

总结

文中介绍的三种在PPT中显示动态数字时钟的方法各有优劣，需要根据PPT的实际使用场景，和自身情况进行选择，只有最合适的才是最好的。