Textbox an Userform anpassen
16.08.2013 16:53:50
steffen
kann ich eine Textbox in einer Userform automatisch an die Größe der Userform anpassen?
Ich möchte gern den Bildschirm maximal ausnutzen, aber egal, ob es ein 17, 19 oder 21-Zoll Monitor ist.
Die UF habe ich wie folgt an die Bildschirmgröße angepasst.
Private Sub UserForm_Activate()
Select Case Application.WindowState
Case xlMaximized
Me.Height = Application.Height - 5 'Korrrektur für Taskleiste = 5
Me.Width = Application.Width - 5 'Korrektur schmäler = 5
Me.Left = 0
Me.Top = 0
End Select
End Sub
Gruß Steffen
Anzeige