如何在PPT中每页母版中加一个倒计时

tszysun

公司规发言时间不得超过15分钟，我想在PPT上加一个倒计时，请问怎么做呀？谢谢！

xuefan1977

我也想知道这个问题。

朱月

可以用VBA编程实现的，有兴趣一起讨论讨论！

盗到稻

不太像话的PPT上用的计时器，如果纯用Sleep 的话，到0才会显示出来，用Doevents的话，又太快了，所以两个一起用，只要不是要求很准时，可以用了，根据不同机子的快慢问题自行调节一下Sleep数值。之前用了15个文本框用动画效果延时一秒来做倒计时效果，但是不能重复，在PPT内又找不到时间计时器或计时控件，只好用此方法变通一下了。Slides(6)表示第六张幻灯片，Shapes(25)表示第25个图形
Private Sub CommandButton2_Click()
Dim i As Integer
For i = 15 To 0 Step -1
    ActivePresentation.Slides(6).Shapes(25).TextFrame.TextRange = i
    Sleep 650
    DoEvents
Next i
End Sub

jenny0612

学习[:30]