Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
816to820
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

userform auf bidschirmgrösse maximieren

userform auf bidschirmgrösse maximieren
13.11.2006 04:45:02
roland_k
hallo zusammen,
ich versuche einstellungen zu finden um eine userform auf bidschirmgrösse zu maximieren......
mit height und width ......oder in der IDE mit maus ziehen...?
denke mal ueber eine API funktion erst die vorhanden grössen ermitteln und dann einsetzen,
wer kann mir das bitte erklären ...
danke
roland_k

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: userform auf bidschirmgrösse maximieren
13.11.2006 06:53:43
Echiko
hi roland,
schreibe den code in ein modul:


      
Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _
ByVal hdc As Long) As Long
Const HORZRES = 8
Const VERTRES = 10
Function ScreenResolution()
Dim lRval As Long
Dim lDc As Long
Dim lHSize As Long
Dim lVSize As Long
lDc = GetDC(0&)
lHSize = GetDeviceCaps(lDc, HORZRES)
lVSize = GetDeviceCaps(lDc, VERTRES)
lRval = ReleaseDC(0, lDc)
ScreenResolution = lHSize & "x" & lVSize
End Function
Sub Schaltfläche1_BeiKlick()
UserForm1.Show
End Sub
 


und diesen code in die userform:


      
Private Sub UserForm_Initialize()
If ScreenResolution() = "800x600" Then
    UserForm1.Height = 430
    UserForm1.Width = 600
    UserForm1.Zoom = 70
End If
If ScreenResolution() = "1024x768" Then
    UserForm1.Height = 555
    UserForm1.Width = 768
    UserForm1.Zoom = 79
End If
If ScreenResolution() = "1152x864" Then
    UserForm1.Height = 620
    UserForm1.Width = 865
    UserForm1.Zoom = 98
End If
End Sub
 


den code habe ich auch aus diesem forum.
leider ist mir der autor nicht mehr bekannt.
Gruss Echiko
(Rückmeldung wäre schön)
Anzeige
AW: userform auf bidschirmgrösse maximieren
13.11.2006 07:22:15
roland_k
hi Echico,
danke sehr gut gelungen, genau was ich brauche
wünsche dir ne gute zeit ..
gruss
roland_k

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige