AW: UserForm zoomen gemäß Bildschirmauflösung
22.09.2003 10:48:50
Hajo_Zi
Hallo Michael
ein Ansatz
' **************************************************************
' 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
Code eingefügt mit: Excel Code Jeanie
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.
Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.
http://home.media-n.de/ziplies/