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

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

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

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

2、回到PPT编辑，在PPT第一页上拖一个普通的文本框（跟平时编辑PPT输入文字一样），随意输入一段标题：

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

4、在“开发工具”选项卡中找到“代码”面板，点击其中的Visual Basic，打开VBA编辑窗口，选中“VBAProject”，右键单击选择“插入”——》“模块”，然后粘贴如下一段代码

Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Public mTimer  As Long'计时函数，每一秒钟运行一次
Sub timer()ss = DateDiff("s", "2020-6-1 10:00:00", Now)dd = ss \ 86400hh = (ss Mod 86400) \ 3600mm = (ss Mod 3600) \ 60ss = ss Mod 60Slide1.Label1.Caption = dd & " 天 " & hh & " 小时 " & mm & " 分 " & ss & " 秒"
End Sub'1s调用一次timer函数计算间隔时间
Sub start()mTimer = SetTimer(0, 0, 1000, AddressOf timer)
End Sub'PPT开始展示时，调用start函数，开始显示计时
Sub OnSlideShowPageChange()Call start
End Sub'PPT终止演示时，结束计时
Sub OnSlideShowTerminate()mTimer = KillTimer(0, mTimer)
End Sub

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

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

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

PPT+VBA实现计时（倒计时）展示相关推荐

微信小程序 —— 倒计时(展示时钟)
以下所述参考网上众多大佬略写,本人只是菜鸟一枚,记录博客主要怕自己记不住,方便以后参考,有何不足,欢迎补充- 方式方法和网上大多大佬有雷同,因为我也是参考网上各位大佬的- 一.单独一个页面只有一个时展 ...
c语言编程转化为vba编程,PPT VBA编程.doc
PPT VBA编程 PPT VBA编程 ?一.什么是VBA?直到上世纪90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得不学习一种不同的自动化语言.例如:可以用E ...
怎样实现随机抽题php,ppt VBA 实现随机抽题
目标/最终效果目标具体描述:制作一个ppt,实现随机抽题. 第一页幻灯片中:点击开始按钮后,右边的文本框快速滚动显示随机数字,点击停止按钮后,滚动停止,抽取到的题号会显示到第二个文本框中,并appe ...
JS 倒计时展示小工具
废话开篇:JS 通过操控标签的隐藏与显示来实现倒计时展示小工具一.实现效果 1.默认展示数字 2.数字倒计时 3.数字倒计时展示虚位 4.数字倒计时不展示虚位 5.小数 6.负数 7.小数倒计时每 ...
ppt模板数字目录怎么展示？
在ppt模板制作过程中,目录是次于封面一般放在ppt模板的第二页,ppt模板设计目录怎么展示才能突出模板的重点和特色呢,今天泡泡糖办公来介绍一下数字目录展示操作方法. 模板入口: https://ww ...
使用Office2003 VBA制作有倒计时功能的PPT
新建一个PPT 设计好背景界面点击菜单视图-工具栏-Visual Basic 点击图示,拖动按钮到界面上拖到界面的按钮上点右键,选择"属性" 在Caption输入"开 ...
PPT述课怎样倒计时
大学生或者职称考评职场人士都会遇到述课限定在一定时间范围内,倒计时就非常需要.实现倒计时则有两种办法.一种是在PPT内用VBA实现,这种方法可以自己编制也可以通过加载库里选择(多数收费),但很难在多个 ...
PR太难不会用？没关系，PPT也能制作倒计时效果
提起倒计时动画,大家第一时间想到的应该是用PR制作吧,可是PR使用起来比较麻烦,很多人不会用,这该怎么办?别慌张,又不是只有这一个软件能制作倒计时动画,今天小编就给大家分享一个制作倒计时动画的小技巧: ...
PPT VBA：批量转PDF
目录一.思路 1.获取文件列表 2.遍历文件列表中的文件 3.调用相应过程进生成PDF 4.完成二.示例代码三.补充一.思路 1.获取文件列表通过fso对象逐层获取主文件夹下的各层子文件夹, ...
ppt模板如何制作动画展示效果？
你的ppt模板还是文字+图片吗?现在ppt模板制作都自带了很多的动画效果,如何让你的ppt动起来呢?ppt家园就来介绍一下ppt设计动画展示效果的方法吧. 1.插入-形状-椭圆-按shift键绘制正圆 ...

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

PPT+VBA实现计时（倒计时）展示相关推荐

最新文章

热门文章