auto. Anpassung UF
15.08.2004 21:46:15
Tom
hab´s jetzt endlich fertig gebracht, das sich meine Datei der jeweiligen Bild-
schirmauflösung anpasst(an dieser stelle nochmals ein Dankeschön an Dieter). Nun habe im Archiv folgendes zur automatischen Anpassung einer UserForm(je nach Bildschirmauflösung) gefunden.
Zack, schon wieder ein Problem.
Der Inhalt meiner UserFormen passt sich der jeweiligen Auflösung an, doch die UserForm selbst ändert sich nicht. Ist natürlich ärgerlich, weil dann nicht alle Funktionen zur Verfügung stehen.
Kann mir da jemand von Euch helfen?
Gruß
Tom
' **************************************************************
' Modul: Tabelle1 Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
' **************************************************************
' Modul: UserForm1 Typ = Userform
' **************************************************************
Option Explicit
Private Sub UserForm_Initialize()
' Bildschirmauflösung, unter der die Userform erstellt wurde
' Breite 1152; 1280; 640
' Höhe 864; 1024; 480
' 1152 ist die Breite des Bildschirmes bei Erstellung
' Code Zeile von L.Vira Anpassung der Formel mit Wertermttlung von Hajo.Ziplies@web.de
Me.Zoom = GetSystemMetrics(SM_CXSCREEN) / 1152 * 100
End Sub
Private Sub UserForm_Zoom(Percent As Integer)
' Code von L.Vira
Me.Width = Me.Width * Percent / 100
Me.Height = Me.Height * Percent / 100
End Sub
' **************************************************************
' Modul: Modul1 Typ = Allgemeines Modul
' **************************************************************
Option Explicit
Public Const SM_CXSCREEN = 0
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long