Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 - |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 - |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 - |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Text to speech particular cell | New Users to Excel | |||
Text to speech upon cell selection, Excel 2007? | Excel Discussion (Misc queries) | |||
Can I copy cell contents to an autoshape as text using a macro? | Excel Programming | |||
Can the contents of a cell be made to blink or flash? | Excel Discussion (Misc queries) | |||
Read Contents of text File into worksheet | Excel Programming |