Print side | Luk vindue

Sprog i Speech funktion

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4884
Udskrevet den: 13.Maj.2024 kl. 21:23


Emne: Sprog i Speech funktion
Besked fra: Skemalægger
Emne: Sprog i Speech funktion
Posteringsdato: 20.Feb.2023 kl. 18:16
Når jeg bruger

Application.Speech.Speak "Noget tekst på dansk"

er stemmen engelsk og det giver kreative udtalelser.
Min pc er sat op til at tale dansk, sproget i excel er dansk. 
Hvordan får jeg talesyntesen til at være det også`

Jeg har fundet en mulig løsning med rettelse i registreringsdatabasen, men er der ikke en nemmere vej?


Svar:
Besked fra: EXCELGAARD
Posteringsdato: 11.Apr.2023 kl. 12:41
Hvis du kender nummeret på din stemme/sprog kan du bruge:

Set Speech.voice = Speech.GetVoices.Item(#)

...hvor # er nummeret på din stemme/sprog, og 'Speech' er din 'SpVoice' variable.

Kender du ikke nummeret kan du evt. prøve, at finde den med noget i denne stil: 
Dim Counter As Long
Dim Speech  As New SpVoice

Debug.Print Speech.GetVoices.Count

For Counter = 0 To Speech.GetVoices.Count - 1
      Set Speech.voice = Speech.GetVoices.Item(Counter)
      Speech.Speak ("Hello World!")
      Application.Wait (Now() + TimeSerial(0, 0, 3))
Next



-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Besked fra: Skemalægger
Posteringsdato: 14.Apr.2023 kl. 18:42
Tak skal du have. Det giver følgende:

Microsoft Zira Desktop - English (United States)


så åbenbart kun én stemme installeret.

Selve min PC "Taler" dansk (Helle hedder stemmen vist).
Så det kan undre, den ikke kommer med på listen
/Skemalægger


Print side | Luk vindue