Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Excel plappern lassen
zurück: Parameter für OnAction, OnKey und OnTime weiter: Werte und Objekte an ein Userform übergeben Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Nepumuk
VB / VBA Programmierer


Verfasst am:
25. Okt 2008, 17:27
Rufname: Max
Wohnort: Dusseldoof


Excel plappern lassen - Excel plappern lassen

Nach oben
       Version: Office 2k (2000)

Hallo,

du willst dir von Excel eine Gute-Nacht-Geschichte vorlesen lassen, kein Problem, denn Microsoft hat schon einen Sprecher eingebaut. Den testen wir gleich mal.

Code:
Public Sub Beispiel1()
    Dim objSpeaker As Object
    Dim intIndex As Integer
   
    Set objSpeaker = CreateObject("SAPI.SpVoice")
   
    For intIndex = 20 To 100 Step 20
        objSpeaker.Volume = intIndex
        objSpeaker.Speak "take your fucking fingers off this button"
    Next
   
    Set objSpeaker = Nothing
End Sub


Ganz nett, aber der Kerl spricht englisch. Wir können ihn zwar deutschen Text vorlesen lassen, hört sich aber bescheiden an.

Es gibt von Microsoft ein Sprachpaket in deutsch für Windows Vista (läuft aber genauso unter Windows XP). Allerdings wird die Datei von Microsoft nicht mehr zum Download angeboten. Aber das Netz ist groß und so kannst du die Datei immer noch runterladen (~20MB). Google einfach nach: RSSolo4GermanSteffi.exe

Wenn diese installiert ist, lässt sie sich so nutzen:

Code:
Public Sub Beispiel2()
    Dim objSpeaker As Object
    Dim intIndex As Integer
   
    Set objSpeaker = CreateObject("SAPI.SpVoice")
   
    Set objSpeaker.Voice = objSpeaker.GetVoices( _
        "Name=ScanSoft Steffi_Dri40_16kHz").Item(0)
    objSpeaker.Volume = 100
   
    For intIndex = 10 To 1 Step -1
        objSpeaker.Speak CStr(intIndex)
    Next
    objSpeaker.Speak "bumm"
   
    Set objSpeaker = Nothing
End Sub


Und so können wir uns dann längere Texte vorlesen lassen:

Code:
Public Sub Beispiel3()
    Dim objSpeaker As Object
    Dim intIndex As Integer, intFileNumber As Integer
    Dim strText As String
   
    Set objSpeaker = CreateObject("SAPI.SpVoice")
   
    Set objSpeaker.Voice = objSpeaker.GetVoices( _
        "Name=ScanSoft Steffi_Dri40_16kHz").Item(0)
    objSpeaker.Volume = 100
   
    intFileNumber = FreeFile
    Open "C:\Weihnachtgeschichte.txt" For Input As #intFileNumber
   
    Do While Not EOF(intFileNumber)
        Input #intFileNumber, strText
        objSpeaker.Speak strText
    Loop
   
    Close #intFileNumber
   
    Set objSpeaker = Nothing
End Sub

_________________
De fontibus non est disputandum

Gruß
Nepumuk Cool
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Sverweis und Textzellen in einer Zelle anzeigen lassen. nur 2 muegwk 787 29. Jan 2008, 11:43
muegwk Sverweis und Textzellen in einer Zelle anzeigen lassen. nur
Keine neuen Beiträge Excel Formeln: Bei leerem Feld auch das andere Feld leer lassen 6 schau222 2104 16. Jan 2008, 12:44
schau222 Bei leerem Feld auch das andere Feld leer lassen
Keine neuen Beiträge Excel Formeln: Werte gruppieren und dann gestaffelt zählen lassen. Hilfe!! 3 Gast 1940 01. Nov 2007, 11:28
Gast Werte gruppieren und dann gestaffelt zählen lassen. Hilfe!!
Keine neuen Beiträge Excel Formeln: Wert von exel suchen lassen um ein ergebnis zu vergleich 7 Johnny-mv 992 17. Aug 2007, 19:48
Detlef 42 Wert von exel suchen lassen um ein ergebnis zu vergleich
Keine neuen Beiträge Excel Formeln: Aufeinanderfolge berechnen lassen 18 Geofreak 1221 04. Aug 2007, 16:47
Geofreak Aufeinanderfolge berechnen lassen
Keine neuen Beiträge Excel Formeln: automatisch Quartale berechnen lassen 3 spacemaeuschen 2541 03. Aug 2007, 08:45
spacemaeuschen automatisch Quartale berechnen lassen
Keine neuen Beiträge Excel Formeln: Daten in ein Koordinatensystem eintragen(-lassen) 2 JHQ 4361 08. Jun 2007, 09:13
JHQ Daten in ein Koordinatensystem eintragen(-lassen)
Keine neuen Beiträge Excel Formeln: [Verknüpfung] Wenn verkn. Zelle leer, dann Zelle leer lassen 4 g4 2572 21. Mai 2007, 20:34
g4 [Verknüpfung] Wenn verkn. Zelle leer, dann Zelle leer lassen
Keine neuen Beiträge Excel Formeln: Letzten 3 Zahlen automatisch wegfallen lassen. 2 JuergenAndree 704 16. Mai 2007, 10:30
JuergenAndree Letzten 3 Zahlen automatisch wegfallen lassen.
Keine neuen Beiträge Excel Formeln: 2 Werte als Vorgabe, einen dritten anzeigen lassen 7 Friesenjung 499 17. Apr 2007, 17:17
Friesenjung 2 Werte als Vorgabe, einen dritten anzeigen lassen
Keine neuen Beiträge Excel Formeln: Tabelle nach Werten aus anderer Tabelle durchsuchen lassen 6 elwood01 8690 21. März 2007, 14:55
Guyver.HH Tabelle nach Werten aus anderer Tabelle durchsuchen lassen
Keine neuen Beiträge Excel Formeln: Werte in Tabelle nach abhängigkeit anzeigen lassen 2 Hoggle 1625 07. März 2007, 21:07
Hoggle Werte in Tabelle nach abhängigkeit anzeigen lassen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum