Powerpoint VBA形状动画定时

Question

我正在寻找一种方法来应用VBA动画定时设置到一个形状，如:
动画开始点击延迟几秒钟。

我能够应用动画，但无法找到方法来改变VBA代码中的动画计时设置

With vslide.Shapes("Tile")
.AnimationSettings.EntryEffect = ppEffectFlyFromLeft
End With

使用VBA

Answer 1

该子程序将暂停当前过程的执行，无论您指定多少秒:

Sub pause(sec As Single)
Dim t As Single: t = Timer
Do: DoEvents: Loop While Timer < t + sec
End Sub

…如pause 2.5，用于2.5秒的暂停。

这通常是最"安全"的。因为DoEvents允许在等待Timer达到目标的同时执行后台事件，因此不会导致应用程序挂起。