[求助]PowerPoint 中的VBA中怎样才能支持 Application.OnTime？

user_znycd

在幻灯片中，画一个按钮，命名为：cmdRefer，Caption 改名为“提交”
然后添加 Click 事件的代码。
但是它不支持 Ontime 的功能。在 Excel 中却可以。
Private Sub cmdRefer_Click()
Application.OnTime Now + TimeValue("00:00:05"), "clearAll"
End Sub
插入模块中有如下的代码：
Sub clearAll()
A.Value = False
B.Value = False
C.Value = False
D.Value = False
End Sub
A、B、C、D 是 4 个“复选框”按钮，分别命名为 A B C D，Caption 也改名为：A B C D
目的想通过 Ontime 来触发 清空 复选空，以便重做题目。
但PPT不支持 Ontime 的方法。不支如何才能在 PPT 中使用 Ontime
这个题目虽然不是Excel，但毕竟是 与“程序”相关，这边高手众多，而在PPT板块，对VBA感兴趣的人不多，因此发到这里来求助。
neStXhSL.rar (15.58 KB, 下载次数: 22)

2016-4-12 12:26 上传

点击文件名下载附件

user_vtqgb

延迟五秒钟？

user_tivywshy

看看有沒有幫助
自動咝信c加載宏的問題（PPT中VBA的小結，含倒計時器）

user_pfywkzex

谢谢lotustower（Emily ）先看看

user_mnwgy

VB 中有 Timer  控件和 Timer 事件，但 VBA 好像不支持？？？
怎样让 VBA 支持 Timer 控件和 Timer 事件？？？？

user_rewjb

狼版的 VB 强啊，来帮我看看。谢谢！

user_qqnrs

Using SetTimer/KillTimer API in PowerPoint 2000

三民主义

lotustower 见多识广，不过，纯英文的网页看起来费力。谢谢了！

saga_0

Ontime 归根结底用到应该还是:SetTimer/KillTimer  API函数.

user_bxpwy

那么怎样在 ppt 种调用这个 api 函数？实现按时执行代码的功能