Zoom In und Zoom out mit Drehfeld
30.09.2018 20:52:24
Oliver
habe auf einem altem Laptop eine sehr umfangreiche Userform erstellt (über 200 Labels, Textboxen, Buttons etc.)
Nun habe ich auf einem neuem Rechner gemerkt, dass die Userform größenmäßig viel zu klein ist. Habe einige Lösungen gefunden, doch bis auf eine hat keine so wirklich funktioniert...
Ich habe ein Modul erstellt "Zoom" mit folgendem Code:
Function formresize(ByVal x As Integer)
If x = 1 Then
UserForm1.Height = UserForm1.Height + 10
UserForm1.Width = UserForm1.Width + 10
UserForm1.ListBox1.Height = UserForm1.Height + 10
UserForm1.ListBox1.Width = UserForm1.Width + 10
Else
UserForm1.Height = UserForm1.Height - 10
UserForm1.Width = UserForm1.Width - 10
UserForm1.ListBox1.Height = UserForm1.Height - 10
UserForm1.ListBox1.Width = UserForm1.Width - 10
End If
End Function und diese Funktion rufe ich dann in der Userform auf:
Private Sub SpinButton1_SpinDown()
Zoom.formresize (1)
End Sub
Private Sub SpinButton1_SpinUp()
Zoom.formresize (0)
End Sub
Diese Lösung gefällt mir eigentlich ganz gut.
Problem: Wie kann ich nun alle meine anderen Elemente in diese Code bekommen ausser jedes einzelne dort reinzuschreiben? Kann ich irgendwie alle Elemente zusammenfassen und ansprechen ?
Also in der Art:
UserForm1.AlleTextBoxen.Height = UserForm1.Height + 10
UserForm1.AlleTextBoxen.Width = UserForm1.Width + 10
Und was ist wenn ich zukünftig neue Elemente hinzufüge, können die auch davon automatisch betroffen sein ?
Danke für eure Hilfe
Gruß Oliver
Anzeige