Vba PowerPoint文本到语音宏

我希望能够创建一个宏，该宏将在presenters备注中的文本上启动文本到语音。我将把宏应用到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识别语音命令并自动完成任何命令，这些命令将帮助我了解如何获得更多信息

---

如何编写代码，将文本到语音命令应用于特定幻灯片的演讲者备注部分

如评论所述，您可以尝试以下方法：

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.

尝试添加对Excel的引用。绑定（早期）Excel对象并使用与上面使用的代码完全相同的代码执行

Speech

命令，但这次从

文本框中提取信息。谢谢！我能让它完全按照我的要求去做。@OAR617很高兴它做到了。顺便说一句，在我们的社区里，请把它看作是表达感谢的一种方式。这也得到了很好的解释。