HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Entdecke rund 2 Millionen Excel-Lösungen im
Forumsarchiv
Forumbeitrag
Excel-Version des Fragestellers:
2019
Erfahrungslevel des Fragestellers:
Excel-Profi - VBA bescheiden
Roman
30.06.2026 07:44:31
AW: Bei mir klappt das -...
Vielen Dank
nach dem Frust gestern 1x mit der Stimme und dann noch heute gegen 1:30 (anderes Thema)
werde ich mal schauen ob ich das heute hinbekomme.
Ich werde mich melden
Danke
Gruß Roman
Als Antwort auf diesen Beitrag
Case
29.06.2026 22:49:58
Bei mir klappt das -...
Moin, :-)

... nachdem ich das Sprachpaket Spanisch hinzugefügt habe - ganz passabel. ;-)

Userbild

Ich habe also "Microsoft Helena Desktop - Spanish (Spain)". ;-)

Wenn du "Main_1" ausführst und siehst im Direktfenster keine spanische Stimme, dann hast du keine "spanische SAPI-Stimme". Dann brauchst du "Main_2" nicht ausführen. ;-)

Option Explicit

Public Sub Main_1()
Dim objVoice As Object
Dim objSAPI As Object
Set objSAPI = CreateObject("SAPI.SpVoice")
For Each objVoice In objSAPI.GetVoices
Debug.Print "Name: " & objVoice.GetDescription
Debug.Print "Language: " & objVoice.GetAttribute("Language")
Debug.Print "Gender: " & objVoice.GetAttribute("Gender")
Debug.Print String(60, "-")
Next
End Sub
Public Sub Main_2()
Dim objVoice As Object
Dim objSAPI As Object
Set objSAPI = CreateObject("SAPI.SpVoice")
For Each objVoice In objSAPI.GetVoices
If InStr(1, objVoice.GetDescription, "Helena", vbTextCompare) > 0 Then
Set objSAPI.voice = objVoice
Exit For
End If
Next objVoice
objSAPI.Rate = -2 ' -10 bis +10
objSAPI.Volume = 100 ' 0 bis 100
objSAPI.Speak "Hola, me llamo Alejandro. ¿Cómo estás?"
End Sub


Zwei Dinge noch - spiele etwas mit der "Rate" - bei mir klingt -2 ganz OK. ;-)

Und was auch noch wichtig ist - die Aussprache wird deutlich besser, wenn der Text korrekte spanische Satzzeichen und Akzente enthält. Also statt "Buenos dias! Como esta usted?", besser so - "¡Buenos días! ¿Cómo está usted?". ;-)

Wenn du "bessere" Aussprachen willst, kommst du an sowas nicht vorbei: ;-)
https://developers.openai.com/api/docs/guides/text-to-speech

Servus
Case
Folgenachrichten
Antwort auf Beitrag erstellen
Bitte einen Anwendernamen ohne @ eingeben.
Bitte das Passwort eingeben.
Bitte eine gültige E-Mail-Adresse eingeben.
Bitte einen Betreff eingeben.
Weitere Optionen
Aktivieren, wenn die Frage/der Beitrag noch nicht beantwortet wurde und unter Listen > Offene Threads erscheinen soll.
Beispieldatei hochladen

Bitte einen Nachrichtentext eingeben.