NO.1
Excel可以将文件转化为语音进行朗读，这方面来说，是一个很人性化的功能。对于一些特殊情形下，通过语音来进行人机交互，更加显得易交互。
如何把Excel表格内容转化为语音，下面做一个介绍。
Speak功能是将文本发送到语音”(TTS) 引擎，然后通过音响输出语音。
如果听不到声音，可能是没有安装音响，或者没有安装语音引擎。
NO.2
Speak语法
Range.Speak(SpeakDirection, SpeakFormulas)
Speak有两个参数
SpeakDirection一个指按行朗读还是按列阅读其值为0、1。
SpeakFormulas是个布尔型，True或False。表示朗读单元格数据还是公式。
True读公式，False读数值。
其实这两参数还是容易理解的，只多练习，掌握使用方法不会很难。
具体方法参数如下图：
NO.3
代码
统一使用一个过程来实现不同朗读方式，在按钮过程中调用此函数即可以。
Private Sub SpeakRange(sr, sf)
With Selection
.Speak SpeakDirection:=sr, SpeakFormulas:=sf
End With
End Sub
先行后列朗读单元值
Private Sub CommandButton1_Click()
Dim sr As Variant, sf As Boolean
sr = 0
sf = False
Call SpeakRange(sr, sf)
End Sub
先列后行朗读单元值
Private Sub SpeakRange(sr, sf)
With Selection
.Speak SpeakDirection:=sr, SpeakFormulas:=sf
End With
End Sub
朗读数值
Private Sub CommandButton3_Click()
Dim sr As Variant, sf As Boolean
sr = 1
sf = False
Call SpeakRange(sr, sf)
End Sub
朗读公式
Private Sub CommandButton4_Click()
Dim sr As Variant, sf As Boolean
sr = 1
sf = True
Call SpeakRange(sr, sf)
End Sub
本例比较简单，主要是两参数值进行变化，实现朗读内容和方式。
有这方面需求，可以试着用上面的代码对单元格内容朗读一下。
---END---
欢迎关注、收藏
