パワポのスライドを全部読み上げさせる方法🎉
こんにちは！
パソコンインストラクター歴14年目の
チサです。(*´∀｀)
今日は
パワポのスライドを
全部読み上げさせる方法🎉
について書きますね！
(◍´ᴗ`◍)✨
パワポの読み上げ機能
については
以前、書いたことがあるんですが
👇
https://note.com/chisa_pc_inst/n/n293eb9b90fb9%0A
でもね。。
この方法はちょっと実用的ではなくて💦
(A；´･ω･)ｱｾｱｾ
例えば
こんなふうに
複数のテキストボックスをつかってるとき
👇
いちいち
1個ずつテキストボックスを選択
しないといけなかったので
超ーーーめんどかったんです。。
𐤔wʷ 🤣 𐤔w𐤔
（なので全然使ってなかった🤣）
でもね！
今回の方法はちがう！！
(ヾﾉ ´꒳`)
そんなことしなくても
すべてのスライドの文字を
連続で
読み上げしてくれる！
ᐠ( ᐛ )ᐟﾔｯﾀｱｱｱｱｱｱｱｱｱｱｱｱ
どんな方法を
使ったのかというと。。
パワポのVBAをつかう⭐️
(о´∀`о)
…といっても
わたし。。
あんまりパワポのVBA
書いたことなくて🤣
AI🤖に質問して
コードを書いてもらいました！
👇
Sub ReadSlidesWithSpeechObject()
Dim sld As Slide
Dim shp As Shape
Dim txt As String
Dim sld_num As String
Dim speech As Object
Set speech = CreateObject("SAPI.SpVoice")
For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasTextFrame Then
If shp.TextFrame.HasText Then
txt = txt & shp.TextFrame.TextRange.Text & " "
End If
End If
Next shp
'音声速度の設定 (例: 速度を1.5倍にする)
speech.Rate = 1 ' 0～+10 (0が標準速度)
'音声ピッチの設定 (例: ピッチを上げる)
speech.Volume = 100 ' 0～100 (100が最大音量)
sld_num = "スライド" & sld.SlideNumber
speech.speak sld_num 'スライド番号読み上げ
speech.speak txt 'スライド内の文字を読み上げ
txt = "" 'テキストをクリア
Next sld
Set speech = Nothing
End Subコードを見てると
ExcelVBAと似てたので
なんとかなりそう！と思い…
元のコードに
ちょっとだけ手を加えて
スライド番号も
読み上げさせてみることに成功‼️
(о´∀`о)
読み上げの順番は
テキストボックスを作った順で
読み上げてくれます。
もし、順番を変更したいときは
校閲タブ
➡ アクセシビリティチェック
➡読み上げ順序ウインドウ
右上の
上下のボタンで順序を変更で🆗
これで思い通りの順で
読み上げてくれます！
(о´∀`о)
よかったら
コードをコピーして
試してみてください！
ﾄﾞｳｿﾞ( *´꒳`*)っ
わたし。。パワポで
Kindle本の原稿を書くことが多いので
今度からは
原稿最終チェック✅するとき
このコードを
パワポのVBEに貼り付けて
読み上げてもらおうと思います！
ヾ(●´∇｀●)ﾉ
ではでは
またあした！
(´꒳`)/
୨୧･･･････････････････････････････୨୧
2024年9月
新刊、販売しました！👇
👆
Excelのパワークエリ入門ドリル♪
この入門ドリルで
パワークエリでどんなことができるのか？
楽しく学べます(∩´∀｀)∩
いつもの仕事を自動化させちゃいましょ🤖
୨୧･･･････････････････････････････୨୧
コチラのExcel本3冊も人気です♪
👇
文字が大きくイラストも多めなので
わかりやすい！読みやすい♪
と好評です(∩´∀｀)∩
★ホームページ
気になる本があれば
試し読みだけでも♪
(´▽｀)