Grösse einer UserForm automatisch
01.08.2007 19:16:00
Harald
ich möchte eine UserForm beim Öffnen je nach Bildschirmauflösung anzeigen. Mit den folgenden Codes, die ich hier schon erhalten habe, hat das bisher auf meinem Bildschirm (1280 x 1024) auch super geklappt:
Private Sub UserForm_Initialize()
Me.Zoom = GetSystemMetrics(SM_CXSCREEN) / 1280 * 100
End Sub
Private Sub UserForm_Zoom(Percent As Integer)
Me.Width = Me.Width * Percent / 100
Me.Height = Me.Height * Percent / 100
End Sub
Nun habe ich das Programm auf das Notebook (1280 x 800) übertragen, und dabei wird der untere Teil der UserForm nicht mehr angezeigt. Ich kann auch nicht nach unten scrollen, da die Scrollfelder zwar angezeigt werde, aber kein Balken zum verschieben darin ist.
Wie kann ich das Problem lösen?
m.f.g.
Harald