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

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

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

Hi Mrlanier,

See John Walkenbach at:

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


---
Regards,
Norman



wrote in message
oups.com...
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

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

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

Tim


wrote in message
oups.com...
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

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

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

Michael

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

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 -

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

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


wrote in message
ups.com...
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 -

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

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

Tim

"Tim" <tim j williams at gmail dot com wrote in message
...



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


wrote in message
ups.com...
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 -

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

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

Michael