UserForm Zoom
22.11.2005 20:12:31
Gerhard
Habe ein Problem mit einem Code bei dem ich die UserForm an die Bildschirmgrösse anpasse. Funktioniert aber mit Flachbettbildschirm nicht und weiss nicht wiso.
Steht in einem Modul:
Option Explicit
Public Const SM_CXSCREEN = 0
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Steht in der UserForm:
Option Explicit
Private Sub UserForm_Initialize()
Me.Zoom = GetSystemMetrics(SM_CXSCREEN) / 1152 * 100
End Sub
Private Sub UserForm_Zoom(Percent As Integer)
Me.Width = Me.Width * Percent / 100
Me.Height = Me.Height * Percent / 100
End Sub
Kennt sich damit jemand aus? Kann es sein das ich da was falsch mache? Ich habe leider keine Ahnung!
Bitte um Hilfe
Gerhard
Anzeige