Excel 関数 & PowerPoint VBA

PowerPoint VBA
スライドショーを開始すると、

スライド上のオブジェクトのテキストを読み上げます。
パソコンのテキスト読み上げ環境によって結果が異なりますので、

動作保証はできません。

2003までの手順

0.「ツール」 →「マクロ」 →「セキュリティー」
　→セキュリティレベル「中」にチェックを入れる
　→パワーポイントをいったん終了して、またすぐ起動
　※マクロを動かすためです。

1.表示→ツールバー→コントロールツールボックスにチェック
→現れたツールバーからコマンドボタンをスライドの外、
　邪魔にならないところにひとつ配置
　[2.のマクロが自動実行されるためのコントロールです]

2. Alt+F11キーでVisual Basic Editor 画面に
→挿入
→標準モジュール
→右の真っ白な大きいところに以下のコードをコピー&ペースト

Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow)
　Dim myVoice As Object 'SpeechLib.SpVoice
　Dim Sld As Slide
　Dim Shp As Shape
　Set myVoice = CreateObject("Sapi.SpVoice")
　Set Sld = Wn.View.Slide
　'スライド上のすべてのオブジェクトのテキスト読み上げ
　For Each Shp In Sld.Shapes
　　With Shp
　　　If .HasTextFrame Then
　　　　With .TextFrame
　　　　　If .HasText Then
　　　　　　myVoice.Speak .TextRange.Text
　　　　　End If
　　　　End With
　　　End If
　　End With
　Next
　'ついでにノートも
　With Sld.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange
　　If Len(.Text) > 0 Then
　　　myVoice.Speak .Text
　　End If
　End With
　Set myVoice = Nothing
End Sub

※2007は0.1.の用語が多少違います

0.左上の丸いOfficeボタン
→一番下の「PowerPointのオプション」
→セキュリティーセンター
→セキュリティーセンターの設定
→マクロの設定：すべてのマクロを有効にする
→OK

1.左上の丸いOfficeボタン
→一番下のPowerPointのオプション
→基本設定
→[開発]タブをリボンに表示する
→[開発]
→コマンドボタンをスライドの外、
　邪魔にならないところにひとつ配置
　[2.のイベントがいつも有効になるためのダミーコントロールです]