Can Excel's speech be made to read cell contents instead of macro placed text?

[mrlanier]

Can someone write a macro that will read string text results from a
designated cell (A1) instead of having to rely on macro dictated text
such as in the sample below?

Private Sub Worksheet_Calculate()
With Application.Speech
Select Case Range("A1")
Case Is = 1: .Speak "If A1 has a returned value of 1, then
this text is made audible."
Case Is = 2: .Speak "If A1 has a value of 2, then this text is
spoken by the computer."
End Select
End With
End Sub

 

[Norman Jones]

Hi Mrlanier,

See John Walkenbach at:

Sound-Proof 2000
http://j-walk.com/ss/sp2000/index.htm

 

[Tim]

application.Speech.Speak activesheet.range("C2").value

Tim

 

[mrlanier]

I was hoping more for a macro rather than an add in. Thanks however.

Michael

 

[mrlanier]

Thank you Tim. Unfortunately, I'm not very proficient with macros.
I'm not sure how you intend your suggestion to be placed, assuming you
intended to place it within my current macro. Can you be more
specific? Thanks.

application.Speech.Speak activesheet.range("C2").value

Private Sub Worksheet_Calculate()
With Application.Speech
Select Case Range("A1")
Case Is = 1: .Speak "If A1 has a returned value of 1, then
this text is made audible."
Case Is = 2: .Speak "If A1 has a value of 2, then this text is
spoken by the computer."
End Select
End With
End Sub- Hide quoted text -

 

[Tim]

Private Sub Worksheet_Calculate()
With Application.Speech
Select Case Range("A1")
Case Is = 1: .Speak
ThisWorkbook.Sheets("Speech").Range("A1").value
Case Is = 2: .Speak
ThisWorkbook.Sheets("Speech").Range("A2").value
End Select
End With
End Sub

Tim

 

[Tim Williams]

Note those "Case..." lines should be on one line: got wrapped when I posted.

Tim

 

[mrlanier]

Thanks Tim. I'm eager to give your macro a try.

Michael