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

Hi Mrlanier,

See John Walkenbach at:

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


---
Regards,
Norman



<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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
>

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

Tim


<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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
>

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

Michael

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 -

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


<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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 -
>
>
>
>

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
news:(E-Mail Removed)...
>
>
>
> 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
>
>
> <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> 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 -
>>
>>
>>
>>
>
>

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

Michael