excel VBA会说话的工作表

excel VBA会说话的工作表

今天给大家分享一个excel中有趣的功能，文本转语音的功能，使用了微软的TTS 语言引擎。

语法格式 ：表达式.Speak(Text, SpeakAsync, SpeakXML, Purge)
表达式是speech object 对象，第一个参数为string类型的文本，后面3个参数默认值都是False

用法：Application.Speech.Speak “文本”

将一篇古文放到excel表的单元格中（蜀道难），内容格式是纯文本格式，选中此单元格，运行代码

废话少说 ，直接上代码

Sub SpearkContents()
    Dim content As String
       
    content = ActiveCell.Value  '获取单元格文本
        
    If content =