Question

ppt执行vba时自定义动画问题

做这样一个ppt，希望演讲者按了某个形状后执行宏，开始计时，到一定时间后自动跳到另外一张ppt，我用了下面的代码：
Sub SpeechTimer()
ActivePresentation.SlideShowWindow.View.Next
Dim TotalTime As Single
Dim T0 As Single
TotalTime = 20 '设定演讲时间（秒）
T0 = Timer
While Timer - T0 <= TotalTime
DoEvents
T = TotalTime - (Timer - T0)
If T <= 0 Then
SlideShowWindows(1).View.GotoNamedShow "timesup"
End
End If
Wend
End Sub
这样以后，功能虽然实现了，但是ppt上做得自定义动画效果都没有了。单击鼠标触发以后卡顿片刻，然后对象跳出。幻灯片切换效果都正常。如何解决？是否其他办法实现类似功能？
这个ppt是用在某个演讲比赛的。几个演讲的人自己做了几张Ppt都放在一起。每个人开始讲自己的内容之前点一下按钮开始计时，到了时间后自动切到写着“时间到”的一页ppt

Answer 1

我还没有想出办法能完全实现你的要求，以下两点供你参考：

1.可以为这个形状设置“动作”，让它点击后直接跳到你要去那张片。可惜无法定义延时（个人觉得延时是不必要的吧？比如你设置延时20秒，那就需要把时间把握相当好，在20秒内把剩下的内容讲完；与其这样，还不如先讲完后再点击，直接跳）；

2.如果你要延时效果，可以将点击要出的片的内容放到当前页中，设置动画与触发器。基本能达到你要的效果。具体参见附件中我以前做过的一个例子。