How do I set my excel to speak what is typed in a cell?

  • Thread starter Thread starter Blessed
  • Start date Start date
B

Blessed

I changed computers and don't remember how I set up the speak command on
Excel. I've looked in the help menu, but can't seem to find it. Can anybody
advise?
 
Place your text in the cells in column A and run this tiny macro:

Sub Macro1()
L = Cells(Rows.Count, "A").End(xlUp).Row
For n = 1 To L
Cells(n, 1).Speak
Next n
End Sub
 
You first have to install the speech feature. Right-click in any button bar
and select Text To Speech. If it hasn't been installed, a message box will
tell you so and ask if you want to install it. Follow directions from
there.
Once it's installed, copy the first macro below to the sheet module if you
want this to work on only one sheet, or copy the second macro to the
Workbook module if you want it to speak what you put in any cell in any
sheet. HTH Otto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.Speech.Speak Target.Value
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.Speech.Speak Target.Value
End Sub
 
Back
Top