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

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?
 
G

Gary''s Student

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
 
O

Otto Moehrbach

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top