PowerPointで1秒待機させるマクロを教えてください…！

Question

実現したいこと

PowerPointのVBAにて、マクロの実行を一時的に待機させるようなものはあるのでしょうか？
自力で調べた結果、下のようなコードがExcelのVBAでは1秒待機させるコードのようです。（間違えていたらごめんなさい…）
具体的に実現したいことは、図形を1秒ごと（もしくは0.01秒）ごとに左に移動させるというマクロです。そのために、あとは上のようなコードがわかれば完成する状態です…

どなたかわかる方、教えていただきたいです…！

Excelでの1秒待機のコード

Application.Wait Now + TimeValue("00:00:01")

補足情報

OS：Mac

Answer 1

PowerPointのVBAは詳しくなく、PowerPointのVBAにExcelのようなWaitメソッドがない前提での回答です。
（少なくともApplicationオブジェクトにはWaitメソッドはありませんでした）
あとMacでの確認はできていませんので、使えない可能性があります。

案１

Excelオブジェクトを使う。
参照設定でExcel（バージョンによって異なりますが、Microsoft Excel 16.0 Object Library など）にチェックする。
次のような感じで使う。

Sub test()
    Dim xls As Excel.Application
    Set xls = CreateObject("Excel.Application")
    For i = 1 To 10
        Debug.Print i
        xls.wait Now + TimeValue("00:00:01")
    Next
    Set xls = Nothing
End Sub

デメリット
・起動が少々遅い
・最短で1秒間隔なので、0.01秒というのはできません（そもそも0.01秒で移動って速過ぎません？）

案２

自前のWait関数を作る。
次のような感じ。

Sub test2()
    For i = 1 To 10
        Debug.Print i
        wait Now + TimeValue("00:00:01")
    Next
End Sub

Sub wait(lo As Date)
    Do While Now < lo
        DoEvents
    Loop
End Sub

デメリット
・最短で1秒間隔なので、0.01秒というのはできません（そもそも0.01秒で移動って速過ぎません？）
・あくまでも時間ベースなので精度がよくない

案３

せっかくPowerPointなのだから、アニメーション機能を使う。
具体的なコードなし。

その他

WindowsならAPIのSleep関数が使えるのですがMacだとどうなんでしょうか。

Comments

[tnt_0105]

ありがとうございます！
実は、0.01秒間隔というのも、短い時間で少しずつ移動させることで、滑らかな動きを再現したいなって思っていました…　また、アニメーションをつけるのもありだったんですが、生成された乱数によって図形を移動させて、移動した状態を保存しておきたかったんですよね…　もう少し調べてみて、可能だったらアニメーションもつけて実現できるか頑張ってみたいと思います！

Answer 2

PowerpointではApplication.Waitは使えないし、
MacだからSleepも使えないんですね。
Macでテストできてませんが、これではいかがでしょうか。

Dim waitTime As Double
Dim Start As Double

waitTime = 0.01
Start = Timer

Debug.Print Timer
While Timer < Start + waitTime
    DoEvents
Wend
Debug.Print Timer

Comments

[tnt_0105]

ありがとうございます！シンプルで分かりやすかったので、ベストアンサーにさせていただきました！