PowerPointのVBAは詳しくなく、PowerPointのVBAにExcelのようなWaitメソッドがない前提での回答です。
(少なくともApplicationオブジェクトにはWaitメソッドはありませんでした)
あとMacでの確認はできていませんので、使えない可能性があります。
案1
Excelオブジェクトを使う。
参照設定でExcel(バージョンによって異なりますが、Microsoft Excel 16.0 Object Library など)にチェックする。
次のような感じで使う。
VBA
1Sub test()
2 Dim xls As Excel.Application
3 Set xls = CreateObject("Excel.Application")
4 For i = 1 To 10
5 Debug.Print i
6 xls.wait Now + TimeValue("00:00:01")
7 Next
8 Set xls = Nothing
9End Sub
デメリット
・起動が少々遅い
・最短で1秒間隔なので、0.01秒というのはできません(そもそも0.01秒で移動って速過ぎません?)
案2
自前のWait関数を作る。
次のような感じ。
VBA
1Sub test2()
2 For i = 1 To 10
3 Debug.Print i
4 wait Now + TimeValue("00:00:01")
5 Next
6End Sub
7
8Sub wait(lo As Date)
9 Do While Now < lo
10 DoEvents
11 Loop
12End Sub
デメリット
・最短で1秒間隔なので、0.01秒というのはできません(そもそも0.01秒で移動って速過ぎません?)
・あくまでも時間ベースなので精度がよくない
案3
せっかくPowerPointなのだから、アニメーション機能を使う。
具体的なコードなし。
その他
WindowsならAPIのSleep関数が使えるのですがMacだとどうなんでしょうか。
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2021/01/07 10:24