Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

UserForm zoomen gemäß Bildschirmauflösung

UserForm zoomen gemäß Bildschirmauflösung
22.09.2003 10:45:07
Michael Heering
Hallo Miteinander!

Weiß jemand, ob eine UF irgendwie zoomen kann, also an die Bildschirmauflösung des Computers anpassen kann? Danke für Eure Tipps

Michael Heering

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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/

Anzeige
AW: UserForm zoomen gemäß Bildschirmauflösung
22.09.2003 10:53:34
Michael Heering
Vielen Dank Hajo!

Das war wirklich schnell. Ich teste das heute und melde mich zurück.

Gruß
Michael Heering
Danke für die Rückmeldung oT
22.09.2003 11:18:42
Hajo_Zi

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige