3

プレゼンター ノートにあるテキストでテキスト読み上げを開始するマクロを作成できるようにしたいと考えています。ユーザーが読み上げを開始できる ActiveX ボタンにマクロを適用し、最終的にスライドのアニメーションをスピーチに合わせたいと考えています。

Excel VBAで、セルを話すコマンドを書き出すことに成功しました：

application.speech.speak (sheet1.cells(1,1))

そして、すべてのスライドのスピーカー ノート セクションにテキストを入力するコードを見つけました。

Sub AddTextAllSpeakerNotes()
  Dim sld As Slide
  For Each sld In ActivePresentation.Slides
    sld.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange = ""
  Next sld
End Sub

Microsoft Speech Object Library リファレンスを追加しましたが、VBA に音声コマンドを認識させてコマンドをオートコンプリートさせることはできません。

特定のスライドのスピーカー ノート セクションに音声合成コマンドを適用するコードを作成するにはどうすればよいですか。

4

1 に答える 1

5

コメントされているように、これを試すことができます：

Dim XL As Excel.Application
Set XL = New Excel.Application

XL.Speech.Speak "I was able to make power point speak"

次への参照を追加した場合:

Microsoft Excel XX.X オブジェクト ライブラリ

Excel を PowerPoint にバインドしたら、そのメソッドをそこから直接使用できます。
上記のコードでは、引数を、読み上げたい文字列を含む実際の PPT オブジェクトに置き換えるだけです。HTH。

于 2015-03-12T23:52:30.453 に答える