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 回答