Kalender in UserForm zoomen ?
P@ulchen
ich habe eine UserForm erstellt (mit Bildschirmauflösung 1400 x 1050).
Diese wird größenmäßig mit folgendem Code (von L.Vira und Hajo) an die Bildschirmauflösung des Users angepasst (gezoomt):
im Modul der UserForm
Private Sub UserForm_Initialize()
Me.Zoom = GetSystemMetrics(SM_CXSCREEN) / 1400 * 100
End Sub
Private Sub UserForm_Zoom(Percent As Integer)
Me.Width = Me.Width * Percent / 100
Me.Height = Me.Height * Percent / 100
End Sub
im Modul1
Option Explicit
Public Const SM_CXSCREEN = 0
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Allerdings befindet sich in der UserForm auch ein Kalenderelement (Calendar1), welches nicht im Traum daran denkt, mitzuzoomen :-((
Kann mir jemand einen Tipp geben ?
Paulchen
Anzeige