CommandButton_Klick, Beschriftung vorlesen
19.11.2015 16:30:52
Dieter(Drummer)
mit toller Hilfe aus diesem Forum habe ich den folgenden Code erstellt. Damit wird durch Klick auf z.B. CommandButton1 (auf Userform1) die Zahl 1 vorgelesen. Dies habe ich für insgesamt 10 CommandButtons (1, 2 ... bis 0).
Frage:
1) Wie muss der Code sein, wenn wenn nur 1x der fette Bereich programmiert ist, aber dennoch die Zahlen der KlickButtons jeweils vorgelesen werden?
2) Es dauert auh einige Zeit, bis nach dem vorlesen die Zahl dann in der Textbox ("Text1") erscheint. Kann dies auch schneller gehen?
Mit der Bitte um Hilfe.
Gruß, Dieter(Drummer)
Private Sub CommandButton1_Click()
Text1 = Text1 + "1"
Dim objSpeaker As Object
Set objSpeaker = CreateObject("SAPI.SpVoice")
objSpeaker.Volume = 100
objSpeaker.Speak 1
Set objSpeaker = Nothing
End Sub
Private Sub CommandButton2_Click()
Text1 = Text1 + "2"
Dim objSpeaker As Object
Set objSpeaker = CreateObject("SAPI.SpVoice")
objSpeaker.Volume = 100
objSpeaker.Speak 2
Set objSpeaker = Nothing
End Sub