UserForm auf Vollbildschirm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
der Tipp von Werner verändert die Grösse auf die des Excelfensters, das will ich nicht, die kann ja auch ganz anders sein. Ich will unabhängig von allem immer die aktuelle Auflösung für die UserForm übernehmen. Wenn ich erstmal die aktuelle des PCs, auf dem es läuft ermitteln kann ist es kein Problem mehr, dann muss man nur noch rechnen. Um diese herauszufinden habe ich in der Zwischenzeit habe ich folgendes gefunden:
Dim x, y As Integer
x = Screen.Width / Screen.TwipsPerPixelX
y = Screen.Height / Screen.TwipsPerPixelY
Das funzt bei mir aber nicht, ich bekomme "Objekt erforderlich" gemeldet, "Screen" kennt er nicht. Muss ich da noch irgendwelche Standardverweise ergänzen ?
Gruss & Dank,
Bastian

Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Const SM_CXSCREEN = 0 Const SM_CYSCREEN = 1 Aufruf dann z.B. über eine Funktion wie: Public Function fctAufloesung() fctAufloesung = "Pixel horizontal: " & GetSystemMetrics(SM_CXSCREEN) & _ " vertikal: " & GetSystemMetrics(SM_CYSCREEN) End Function Gruss Bastian

Hi Bastian,
ich hab ähnliches gemacht, funzd relativ gut.
die zahl in "If GetSystemMetrics(0) = 800 Then" gibt die aktuelle horizontale auflösung an.
bei standardauflösungen ist das kein problem, bei exoten hab ichs noch nicht probiert.
je nach auflösung wird die userformgröße angepasst.
steuerlemente kannst du ja über die zoom funktion anpassen
ciao
alexe
ps code ist in modul untergebracht und wird bei macro start uber "userform initialize" mit "call screenres" gestartet
Declare


Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Sub screenres()
If GetSystemMetrics(0) = 800 Then
UserForm1.Width = 600
UserForm1.Height = 450
UserForm1.KeepScrollBarsVisible = fmScrollBarsBoth
UserForm1.ScrollHeight = 744
UserForm1.ScrollWidth = 957
End If
If GetSystemMetrics(0) = 1024 Then
UserForm1.Width = 768
UserForm1.Height = 576
UserForm1.KeepScrollBarsVisible = fmScrollBarsBoth
UserForm1.ScrollHeight = 744
UserForm1.ScrollWidth = 957
End If
If GetSystemMetrics(0) = 1152 Then
UserForm1.Width = 858
UserForm1.Height = 648
UserForm1.KeepScrollBarsVisible = fmScrollBarsBoth
UserForm1.ScrollHeight = 744
UserForm1.ScrollWidth = 957
End If
If GetSystemMetrics(0) = 1280 Then
UserForm1.KeepScrollBarsVisible = fmScrollBarsNone
UserForm1.Width = 960
UserForm1.Height = 768
End If
End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UserForm auf Vollbildschirm

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread