Speak on Enter

[Chris Williamson]

Good evening guys,

When the "Speak on Enter" command is turned on, and you type the word "Hello" into cell A1.
Excel will say the word "Hello" out loud via your speakers, in a Stephen Hawkins type of voice.

However if you have a simple macro to insert the text "Hello" into cell A1.

    Text1 = ("Hello")
    Sheet1.Range("A1").Value = Text1

The "Speak on Enter" command does not work.

How do you get the "Speak on Enter" command to work with the macro code?

 

[mole999]

i thought it was something like

range("A1").speak

 

[bertie]

I don't know what you mean by the, "Speak on Enter" Command.

In Excel 2003 you can use the "Speech" function.

For A1 = "Hello"

[COLOR=#000000][COLOR=#000000][COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] Workbook_Open()
   [COLOR=darkblue]Dim[/COLOR] Text1 [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR]
   Text1 = Sheets("Sheet1").Range("A1").Value
 
   Application.Speech.Speak (Text1)
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR][/COLOR]
[/COLOR]

 

[Chris Williamson]

Thanks guys, I got it to work now..

 

[bertie]

My apologies, I just re-read your post and you may be looking for a Worksheet_Change event. place the code in the Sheet1 module.

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] Worksheet_Change([COLOR=darkblue]ByVal[/COLOR] Target [COLOR=darkblue]As[/COLOR] Range)
 
   [COLOR=darkblue]Dim[/COLOR] Text1 [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR]
   [COLOR=darkblue]If[/COLOR] Target <> Range("A1") [COLOR=darkblue]Then[/COLOR]
      [COLOR=darkblue]Exit[/COLOR] [COLOR=darkblue]Sub[/COLOR]
   [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
 
   Text1 = Range("A1").Value
   Application.Speech.Speak (Text1)
 
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

Edit: Oops, too late.