Code kürzen. Auf Userform Images an aus
06.05.2021 15:16:17
Dieter(Drummer)
Der Code unter Userform ermöglicht, bei Klick auf z.B. Image1 (img1), dass img1 deaktiviert und img1a aktiviert wird.
Dies gilt auch für weitere Images (imgs). Gesamt sind es die Images: img1, img1a, img2, img2a bis img0. img0a.
Das funktioniert mit meinem Code.
Frage: Kann man den Code kürzer fassen und wenn ja wie muss er dann lauten?
Mit der Bitte um Hilfe und
Gruß, Dieter(Drummer)
'Hier mein Code und meine Bespieldatei: https://www.herber.de/bbs/user/146036.xlsm
Private Sub img1_Click()
Application.Speech.Speak "1", SpeakAsync:=True
img1.Visible = False
img1a.Visible = True
End Sub
Private Sub img2_Click()
Application.Speech.Speak "2", SpeakAsync:=True
img2.Visible = False
img2a.Visible = True
End Sub
Private Sub img3_Click()
Application.Speech.Speak "3", SpeakAsync:=True
img3.Visible = False
img3a.Visible = True
End Sub
Private Sub img4_Click()
Application.Speech.Speak "4", SpeakAsync:=True
img4.Visible = False
img4a.Visible = True
End Sub
Private Sub img5_Click()
Application.Speech.Speak "5", SpeakAsync:=True
img5.Visible = False
img5a.Visible = True
End Sub
Private Sub img6_Click()
Application.Speech.Speak "6", SpeakAsync:=True
img6.Visible = False
img6a.Visible = True
End Sub
Private Sub img7_Click()
Application.Speech.Speak "7", SpeakAsync:=True
img7.Visible = False
img7a.Visible = True
End Sub
Private Sub img8_Click()
Application.Speech.Speak "8", SpeakAsync:=True
img8.Visible = False
img8a.Visible = True
End Sub
Private Sub img9_Click()
Application.Speech.Speak "9", SpeakAsync:=True
img9.Visible = False
img9a.Visible = True
End Sub
Private Sub img0_Click()
Application.Speech.Speak "0", SpeakAsync:=True
img0.Visible = False
img0a.Visible = True
End Sub