![](https://www.higashisalary.com/wp-content/uploads/2021/04/siruetto-1.jpg)
こんにちは、ヒガシです。
このページでは、以下の動画のように選択した複数のテキストボックスの中身を音声読み上げしてくれるマクロをご紹介していきます。
それではさっそくやっていきましょう!
VBA上で音声読み上げさせる方法
まずはじめに、エクセル上で指定した文章を音声読み上げするVBAコードをご紹介します。
CreateObject(“SAPI.SpVoice”).Speak “読み上げる文章”
基本的には上記コードを実行すれば読み上げる文章部分を読み上げてくれます。
今回紹介するテキストボックス内の内容読み上げにおいても、このスキルを使用していきます。
選択した複数テキストボックスの中身を読み上げるマクロ
それでは冒頭に紹介した複数の選択したテキストボックスの中身を読み上げてくれるマクロをご紹介していきます。
Sub Speak_Some_Box()
'選択したテキストボックスの数に応じて処理を繰り返す
For i = 1 To ActiveWindow.Selection.ShapeRange.Count
' 読み上げるテキストボックスの文章を取得する
textToRead = Selection(i).Text
' テキストを読み上げる
CreateObject("SAPI.SpVoice").Speak textToRead
Next
End Sub
コメントをつけていますのでやっていることは理解しやすいと思います。
おわりに
というわけで今回は選択した複数のテキストボックスに書かれている内容を音声読み上げしてくれるマクロをご紹介しました。
部下の資料チェックとかに使えそうですね。
このように、私のブログではエクセルスキルはもちろん、様々なプログラミングスキルを紹介しています。
ぜひ他の記事ものぞいてみてください。
コメント