讓 EXCEL 發聲講英文(VBA)

FROM : http://www.ozgrid.com/forum/archive/index.php/t-163916.html

Sub TEST()
Call SayIt("Hello. This is Microsoft Excel speaking.")
End Sub

Sub SayIt(TheWord As String)
Dim s As Object
Set s = CreateObject("SAPI.SpVoice")
s.Speak TheWord
Set s = Nothing
End Sub