Excelで読み上げ Range(範囲).Speak で簡単にできました Application.Speech.Speakもアリかな

タイトル

ExcelのVBAで.Speakを使用すると、簡単に読み上げが可能です
Application.Speech.Speak もあって、
セル読み上げだけじゃなく、好きな言葉を読み上げることができます。

MsgBoxと組み合わせてみたけど、チョット、イマイチでした。
視聴者のみなさんで、面白い使い方があったら、
ぜひコメント欄で教えてください。
youtu.be
https://youtu.be/c4mH9szOo2w

#ExcelVBA #Speak #読み上げ #Speech

Option Explicit

Sub test1()  '.Speakなんてあるんだ・・・
    Debug.Print "開始" & Now
    Range("A1:C5").Speak
    Debug.Print "終了" & Now
End Sub

Sub test2()  '直接文字列で読み上げ も 可能みたいです
    Application.Speech.Speak "あのあの"
    Application.Speech.Speak "直接文字列で読み上げ も 可能"
    Application.Speech.Speak "こんな感じ。って、どんな感じだよ"
End Sub

Sub test3()  '読み上げ中に進まないので、MsgBoxとの組み合わせはイマイチ？
    Application.Speech.Speak "エラーです、確認してください"
    MsgBox "エラー発生、確認してください", vbExclamation
    Application.Speech.Speak "落ち着いて作業してくださいね。よろしく"
End Sub