Help with speech feature

[omriar]

Hi, i'm trying to use SpeakAsync with supertalk.
I saw on wellsr website that you can change excel's speech parameters, the voice, the volume and the speed with "supertalk":
-------------------------------------------------------------------------------------------------------------------------------------------
Sub ChangeVoiceDemo()
SuperTalk "Excel is talking to me.", "BOY", 2, 100
SuperTalk "Excel is talking to me.", "GIRL", 2, 100
SuperTalk "Excel is talking to me.", "BOY", -10, 30
SuperTalk "Excel is talking to me.", "GIRL", 10, 70
End Sub

Private Sub SuperTalk(Words As String, Person As String, Rate As Long, Volume As Long)
Dim Voc As SpeechLib.SpVoice
Set Voc = New SpVoice

With Voc
If UCase(Person) = "BOY" Then
Set .Voice = .GetVoices.Item(0)
ElseIf UCase(Person) = "GIRL" Then
Set .Voice = .GetVoices.Item(1)
End If
.Rate = Rate
.Volume = Volume
.Speak Words
End With
End Sub
-------------------------------------------------------------------------------------------------------------------------------------------
also I saw that you can use "SpeakAsync" to continue the code while the excle is speaking
-------------------------------------------------------------------------------------------------------------------------------------------
Sub TalkToMe3()
Application.Speech.Speak "Excel is talking to me", SpeakAsync:=True
MsgBox "test"
End Sub
-------------------------------------------------------------------------------------------------------------------------------------------
But I can't find a way to do the simultaneously.
It will be much appreciated if someone could help with this.

 

[COwen]

Why do you need to change the voices? It seems that it would be easiest to do

Application.Speech.Speak "My String", SpeakAsync:=True

 

[omriar]

Why do you need to change the voices? It seems that it would be easiest to do

Application.Speech.Speak "My String", SpeakAsync:=True

Why do you need to change the voices? It seems that it would be easiest to do

Application.Speech.Speak "My String", SpeakAsync:=True

I need to change the speed and volume in code also I want to use the British voice

 

[COwen]

Okay, why not just change the default values for those parameters?

 

[omriar]

Okay, why not just change the default values for those parameters?

And how do I do that?

 

[COwen]

What Operating System do you use?

 

[COwen]

For Windows 10, Go to Speech Settings and then you can change the default settings from there.