cellen uitspreken in excel

[tilly86]

Goedendag allen,
Via cellen uitspreken kan je door excel hetgeen wat er in de cel staat laten uitspreken,
Weet iemand hoe het mogelijk is deze stem te veranderen?

Graag zou ik ook weten of het mogelijk is om een geuidsbestand in te voegen en die bij een bepaalde waarde afgespeeld kan worden automatisch?

alvast vriendelijk dank voor het meedenken

 

[edmoor]

Bedoel je een andere stem of een andere taal? Wat taal en gebruik van die functie betreft kan je hier kijken:
https://support.office.com/en-us/ar...gual-TTS-e522a4f2-37cb-492b-be6a-8997d23dfe70

Toevoegen audiobestand:
http://excel.tips.net/T002864_Inserting_a_Sound_File_in_Your_Worksheet.html

 

[tilly86]

Ik bedoel inderdaad een andere stem. Hoop dat dit mogelijk is.
dat toevoegen audiobestand is inderdaad gelukt via deze manier, vroeg mij af of het mogelijk is deze bij een bepaalde waarde in een cel automatisch kan laten afspelen?

 

[edmoor]

Je kan kiezen tussen een mannenstem en een vrouwenstem:
https://support.microsoft.com/en-us/kb/289845

Wat dat automatisch afspelen betreft weet ik dat niet uit het hoofd maar dat zal vast wel lukken.
Ik heb alleen nu geen tijd om dat uit te zoeken.
Iemand anders hier wellicht

 

[tilly86]

in ieder geval alvast bedankt voor de reactie's ! ga kijken of de mannenstem beter is
ben namelijk bezig met sheets om darttoernooien te organiseren en is al veel gelukt via macro's. wil alleen kijken of het haalbaar is om de scores te laten uitspreken.
scheelt weer een mastercaller tijdens het toernooi

 

[edmoor]

Dan wens ik je good darts

 

[MarcelBeug]

Dan moet je toch Russ Bray hebben?

 

[tilly86]

haha ja dat zou mooi zijn, maar die kan niet meer ff langs komen

 

[gast0660]

Zoiets mischien?

 

[tilly86]

Super daar kan ik alweer een stuk mee verder!

 

[gast0660]

Veel suc6,gezien dit niet een alledaagse vraag is op help mij ,blijf ik benieuwd naar de reultaten

 

[tilly86]

Bummer, krijg het niet voor elkaar. dan maar gewoon via een youtube fimpje invoegen of via object invoegen.
Code aanpassen werkt helaas niet, gaat mn computer van doordraaien

 

[edmoor]

Bedoel je dit misschien? Als je in kolom B een getal invult wordt deze uitgesproken. Wanneer dat getal 180 is speelt hij een bestandje met de naam 180.wav die in dezelfde folder staat als het Excel document.
Bekijk bijlage Speech.xlsm

Een bestandje 180.wav kan je hier downloaden:
http://s000.tinyupload.com/?file_id=65170686529022218185

 

[tilly86]

thanks, ga er vanavond even naar kijken. Maar het klinkt goed

 

[tilly86]

Bekijk bijlage test speech.xlsm

ik heb de programmacode overgenomen in een ander excel bestand, dan doet hij dit helaas niet.
In jou bestand van Speech wel gelukt om hier een geluid aan te koppelen. ( wel echt gaaf dat dit kan )
Ligt dit misschien aan een instelling?

 

[edmoor]

Er worden heel andere kolommen gebruikt en ook meer dan 1 zoals in het voorbeeld. Probeer deze maar eens in dat document:

Private Declare Function PlaySound Lib "winmm.dll" _
        Alias "PlaySoundA" (ByVal lpszName As String, _
        ByVal hModule As Long, ByVal dwFlags As Long) As Long
        
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
'--------------------------------------------------------------
        
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not IsNumeric(Target.Value) Then Exit Sub
    Select Case Target.Column
        Case 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24
            If Target.Value = "180" Then
                WAVFile = ThisWorkbook.Path & "\an_180.wav"
                Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
            Else
                Range(Target.Address).Speak
            End If
    End Select
End Sub

 

[tilly86]

Bekijk bijlage test speech.xlsm
Helaas speelt hij het geluidje dan niet af, je hoort alleen michelle 180 zeggen.

 

[edmoor]

Doet het hier prima in het document dat je in #17 bijsloot, zonder enige aanpassing.

 

[tilly86]

sorry ik was te vroeg, hij werkt! super bedankt!

 

[edmoor]

Ok dan