Excel可以将文件轉化為語音進行朗讀，這方面來說，是一個很人性化的功能。對于一些特殊情形下，通過語音來進行人機交互，更加顯得易交互。

如何把Excel表格内容轉化為語音，下面做一個介紹。

Speak功能是将文本發送到語音”(TTS) 引擎，然後通過音響輸出語音。

如果聽不到聲音，可能是沒有安裝音響，或者沒有安裝語音引擎。

Speak語法

Range.Speak(SpeakDirection, SpeakFormulas)

Speak有兩個參數

SpeakDirection一個指按行朗讀還是按列閱讀其值為0、1。

SpeakFormulas是個布爾型，True或False。表示朗讀單元格數據還是公式。

True讀公式，False讀數值。

其實這兩參數還是容易理解的，隻多練習，掌握使用方法不會很難。

具體方法參數如下圖：

代碼

統一使用一個過程來實現不同朗讀方式，在按鈕過程中調用此函數即可以。

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

歡迎關注、收藏

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!