PPT代码片段合集
批量操作
批量添加固定元素
批量删除固定元素
批量删除所有动画
图片批量变成灰色
批量取消文本加粗
待整理分类
将PPT拆分成单页
将PPT的页面逆序
PPT勾选交互效果
活动开始倒计时
随机抽奖或随机点名
制作指定月份的日历
循环放映时隐藏部分页面
只给未隐藏的页面添加页码
生成多等分的圆环
在奇偶页插入不同页脚
倒计时到特定日期
跳转到随机页面
随机打乱指定页面的顺序
跳转上一页与下一页
一键关闭所有插件
公众号:自律的音律
-
+
首页
活动开始倒计时
> 这是用于倒计时的代码,可以提前设置好目标时间,放映后会自动计算剩余时间,精确到秒,可以用来做活动或高考的倒计时。 **使用方法:** 打开 PPT 后新建一页带有`标题占位符`的页面,然后在`“切换”`选项卡中设置自动换片时间为 1 秒。 接着在`“幻灯片放映”`选项卡中,点击`设置幻灯片放映`功能,在弹出的窗口中勾选`循环放映`。 设置完成后打开代码编辑器,插入如下代码并运行,放映时就会根据设置的目标时间自动倒计时。 **代码如下:** ```vb Sub 活动倒计时() Dim diff As Long Dim ww As Long Dim dd As Long Dim mm As Long Dim hh As Long Dim ss As Long diff = DateDiff("s", Now, "6/1/2022 20:00") '在括号中设置目标日期与时间' ww = Int(diff \ 604800) overflow = diff Mod 604800 dd = Int(overflow / 86400) overflow = overflow Mod 86400 hh = Int(overflow / 3600) overflow = overflow Mod 3600 mm = Int(overflow / 60) ss = overflow Mod 60 ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange = Format(ww, "00") & " 星期 " & Format(dd, "00") & " 天 " & Format(hh, "00") & " 小时 " & Format(mm, "00") & " 分 " & Format(ss, "00") & " 秒 " End Sub Sub onSlideShowPageChange(SW As SlideShowWindow) Call 活动倒计时 End Sub ``` **显示天数的代码:** ```vb Sub 活动倒计时() Dim diff As Long Dim dd As Long Dim mm As Long Dim hh As Long Dim ss As Long diff = DateDiff("s", Now, "9/20/2023 20:00") '在括号中设置目标日期与时间' dd = Int(diff \ 86400) overflow = diff Mod 86400 hh = Int(overflow / 3600) overflow = overflow Mod 3600 mm = Int(overflow / 60) ss = overflow Mod 60 ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange = Format(dd, "00") & " 天 " & Format(hh, "00") & " 小时 " & Format(mm, "00") & " 分 " & Format(ss, "00") & " 秒 " End Sub Sub onSlideShowPageChange(SW As SlideShowWindow) Call 活动倒计时 End Sub ```
音律
July 25, 2023, 7 p.m.
0 条评论
转发文档
收藏文档
上一篇
下一篇
评论
手机扫码
复制链接
手机扫一扫转发分享
复制链接
Markdown文件
PDF文档
PDF文档(打印)
分享
链接
类型
密码
更新密码