Suche nach Spanischer Stimme die in VBA bei Text zu Sprache

Zum Forum Zum Forum Zum Forumthread Zum Forumthread Zum Archivthread Zum Archivthread

Forumbeitrag

Excel-Version des Fragestellers:

2019

Erfahrungslevel des Fragestellers:

Excel-Profi - VBA bescheiden

Roman

30.06.2026 12:22:30

AW: Bei mir klappt das -...

Hallo an alle die geantwortet haben,
VBA läuft jetzt und gibt die Worte mit Spanischer stimme aus.

Für Alle die den Thread anschauen, --- was habe ich gemacht.

Ich habe in Windows das Sprachpaket Spanisch nachgeladen und dann wurde auch die SAPI Stimme Helena bei den Sprachen mit aufgelistet und kann seitdem von VBA aus auch angesprochen werden.

Also Fall gelöst ich bin happy und bedanke mich an alle die geholfen haben.
Danke bis zum nächsten mal.
Gruß Roman

Roman bedankt sich bei Case für diese hilfreiche Antwort.

Als gefällt mir markieren Als hervorragend auszeichnen

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

Zum Forumthread

Antwort auf Beitrag erstellen

Name

Bitte einen Anwendernamen ohne @ eingeben.

Passwort

Bitte das Passwort eingeben.

Email-Adresse

Bitte eine gültige E-Mail-Adresse eingeben.

Betreff

Bitte einen Betreff eingeben.

Weitere Optionen

Als noch offen markieren.

Aktivieren, wenn die Frage/der Beitrag noch nicht beantwortet wurde und unter Listen > Offene Threads erscheinen soll.

Beispieldatei hochladen

fett 

Setzt den Text in b-Tags (Fettschrift)

Dieser Text ist in Fettschrift formatiert

So sieht das dann aus

Dieser Text ist in Fettschrift formatiert

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist der hervorzuhebende Text zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung des markierten Textes gesetzt.

kursiv 

Setzt den Text in i-Tags (Kursivschrift)

Dieser Text ist in Kursivschrift formatiert

So sieht das dann aus

Dieser Text ist in Kursivschrift formatiert

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist der kursiv zu setzende Text zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung des markierten Textes gesetzt.

Formel <pre>

Setzt den Text in pre-Tags

<pre>=FILTER(B2:C11;A2:A11=F1)</pre>

So sieht das dann aus

=FILTER(B2:C11;A2:A11=F1)

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist die Formel zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung der markierten Formel gesetzt.

Neben der optischen Hervorhebung dient die pre-Setzung auch der Verhinderung von HTML-Problemen, die dadurch entstehen, dass in Formeln enthaltene Kleiner-/Größer-Als-Zeichen vom Browser als HTML-Tags missverstanden werden.

Code <pre><code>

Setzt den Text in pre- und code-Tags

<pre><code class="language-vba">
Option Explicit
Sub NaEndlich()
MsgBox "Hallo Welt"
End Sub
</code></pre>

So sieht das dann aus


   Option Explicit
   Sub NaEndlich()
      MsgBox "Hallo Welt"
   End Sub

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist die Formel zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung der markierten Formel gesetzt.

Liste <li>

Setzt den Text in li (Listenpunkte)

<li>Erste Zeile</li>
<li>Zweite Zeile</li>
<li>Dritte Zeile</li>

So sieht das dann aus

Erste Zeile
Zweite Zeile
Dritte Zeile

Erklärung

Bitte einen Nachrichtentext eingeben.