【VBA】エクセルでタイピング文字

文字がタイプライターで打たれるように一文字ずつ表示される表現です。

やっていること

テキストの文字数を取得して
左から1文字ずつ増やして表示させていくだけです。

Sub タイピング文字()

    Dim txt As String
    txt = "あいうえお"
    
    Dim i As Long
    For i = 0 To Len(txt)
        ActiveSheet.Shapes("テキスト").TextFrame.Characters.Text = Left(txt, i)
        Application.Wait [Now()] + 50 / 86400000
    Next i

End Sub