How to create my own "text to speech" in vba

[KhallP]

I would like to make my own "text to speech" in vba, when the user kept the mouse over a button or a textbox I would like the program to play a specific audio created by me, how can I do this?

 

[Logit]

The following will speak the word/s that are highlighted :

ption Explicit

#If VBA7 Then
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
#Else
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems
#End If

Sub SpeakCells()
Dim rRange As Range
Dim rCell As Range

Set rRange = Selection

For Each rCell In rRange
Application.Speech.Speak rCell.Text, Purge:=True, SpeakAsync:=True
Sleep 1000 'wait 1000 milliseconds (1 second)
Next rCell

End Sub

You can combine the above macro to be run with another macro that recognizes 'hovering' over a cell or text box. I would do a search for
"vba mouse hover run macro"

 

[KhallP]

The following will speak the word/s that are highlighted :

ption Explicit

#If VBA7 Then
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems
#Else
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems
#End If

Sub SpeakCells()
Dim rRange As Range
Dim rCell As Range

Set rRange = Selection

For Each rCell In rRange
Application.Speech.Speak rCell.Text, Purge:=True, SpeakAsync:=True
Sleep 1000 'wait 1000 milliseconds (1 second)
Next rCell

End Sub

You can combine the above macro to be run with another macro that recognizes 'hovering' over a cell or text box. I would do a search for
"vba mouse hover run macro"

but is it possible to put a specific audio file for him to speak when the mouse is over?

 

[Logit]

Depends on what it is you are attempting to achieve. If you are anticipating 6 or 10 different cells that the mouse will hover over, and the response for reading the text therein will always be the same, you could use a SELECT CASE statement for each cell or IF statements referring to each cell location.

If you are desiring the 'computer reading text' to happen no matter which cell the mouse hovers over (every cell in the workbook) ... that is going to require a substantial amount of coding. Probably more than Excel is truly capable of accomplishing.