Bildschirmanpassung
05.12.2005 10:21:25
Gerahrd
Habe jetzt folgenden Code in meiner Userform:
Private Sub UserForm_Activate()
Select Case Application.WindowState
Case xlMaximized
Me.Height = Application.Height - 5 'Höhenkorrektur für Taskleiste = -5
Me.Width = Application.Width - 5 'Breitenkorrektur = -5
Me.Left = 0
Me.Top = 0
End Select
End Sub
Was aber jetzt passiert ist, dass die Userform sich rechts am Bildscirmrand vergrössert die Elemente in der UserForm aber nicht mitziehen.
Ist das möglich, dass sich die Userform rechts und links gleich vergrössert und dadurch die Elemente der Userfor (Textboxen,Schaltflächen,Listboxen) in die Bildschirmmitte rücken. Oder kann ich die Elemente mit zoomen?
Bitte um Hilfe
Gerhard
Anzeige