PPT倒数计时 VBA代码哪里错了
改了两处
第一行给你改了
成品ppt在线生成，百种模板可供选择☜☜☜☜☜点击使用；
为了帮助还没有过关的玩家们，让我们一起来了解一下具体的解谜方法吧。另外，还有一个小技巧是在ActivePresentation.Slides(1)后面加了一个shape(1)。这个操作可以帮助你更快地解开谜题，记得试试看哦。
测试可行
为了帮助还没有过关的玩家们，让我们一起来了解一下具体的解谜方法吧。同时，我们可以使用SetTimer函数来设置定时器，该函数位于user32库中。这个函数接受四个参数：窗口句柄（hwnd）、定时器ID（nIDEvent）、间隔时间（uElapse）和定时器回调函数（lpTimerFunc）。通过调用这个函数，我们可以在一定的时间间隔内执行特定的操作。
Sub Timer()
为了帮助玩家解决问题，我们可以使用以下代码来计算当前时间和指定日期之间的秒数差：`ss = DateDiff("s", Now, "2012-3-22 00:00:00")`。这段代码将返回一个整数值，表示当前时间和指定日期之间相差的秒数。
dd = ss \ 86400
hh = (ss Mod 86400) \ 3600
mm = (ss Mod 3600) \ 60
ss = ss Mod 60
ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text = ＂距2012年考试还有＂ & vbCrLf & dd & ＂天＂ & hh & ＂小时＂ & mm & ＂分钟＂ & ss & ＂秒＂
End Sub
Sub Start()
ActivePresentation.SlideShowSettings.Run
SetTimer 0, 0, 1000, AddressOf Timer
End Sub
PPT上倒记时间如何设置
1、打开PPT，选择“插入”——“形状”——“圆形”（画圆的同时按住shift键）。
2、设置所画圆形的的填充背景色和边框（选择圆形，右键选择“设置形状格式”，或直接用“填充”、“轮廓”功能设置。），然后在圆中填写数字。
3、设置动画，选择所画形状（将圆形和数字组合在一起）——选择动画——添加动画——选择进入动画为“出现”——选择退出动画为“消失”。然后设置“开始”选项为“上一动画之后”，延迟时间为0.5秒。
4、之后将所画形状进行复制，粘贴出4个同样的圆形（其动画属性也同时被复制粘贴），并将圆形中的数字改为4、3、2、1。
5、设置五个数字的对其格式。选中五个形状，在“格式”——“对齐”下依次选择“左右居中”和“上下居中”。
6、上述步骤做完之后，五个形状“合五为一”，然后选择播放按钮，即可查看从5——1的动态倒计时效果。
