Question

我希望能够创建一个宏，该宏将在演示者笔记中的文本上开始文本到语音转换。我将把宏应用到一个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语音对象库参考，但我永远无法让VBA识别语音命令并自动完成任何可以帮助我弄清楚如何进一步的命令。

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

Answer 1

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

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。

PowerPoint文本到语音宏

1 个答案: