Office: Userform an Bildschirmgröße Anpassen

jeffreyclaiton · 19. Februar 2017

Hallo,

ich habe einen Code gefunden, der soweit ganz gut funktioniert um die Userform an den Bildschirm anzupassen.

Allerdings passt sich dieser der Größe der Exel Application an.
Ich öffne die Exel Applikation über ein VB Skript nur im Hintergrund (nicht sichtbar für den ANwender)

Gibt es die Möglichlkeit diese Bezugsgröße zu fixieren an ein bestimmtes Format 1920*1080?
Oder kann man die Größe von der Bildschirmauflösung abgreifen und in den Code einpflegen?

Ich würde mich gerne von dem Bezug zur Größe der Exel Application lösen.

Ich wäre über jede Hilfe sehr Dankbar.
David

Code:

Private Sub UserForm_Initialize()
'Userform wird auf die Größe von Excel gezoomt, wobei die
'die Controls entsprechend gezoomt und zentriert werden.
'Uwe Küstner 20070622

Dim Faktor As Single
Dim X As Single, Y As Single
Dim sngL As Single, sngO As Single, sngR As Single, sngU As Single
Dim oC As MSForms.Control

Faktor = Application.Height / (Me.Height - 20)
If Faktor < 0.1 Then Faktor = 0.1
If Faktor > 4 Then Faktor = 4
Me.Width = Application.Width
Me.Height = Application.Height
sngL = Me.Width
sngO = Me.Height
For Each oC In Me.Controls
sngL = Application.WorksheetFunction.Min(sngL, oC.Left)
sngO = Application.WorksheetFunction.Min(sngO, oC.Top)
sngR = Application.WorksheetFunction.Max(sngR, oC.Left + oC.Width)
sngU = Application.WorksheetFunction.Max(sngU, oC.Top + oC.Height)
Next oC
X = (Me.Width - (sngR * Faktor) - (sngL * Faktor)) / 2 / Faktor
Y = (Me.Height - (sngO * Faktor) - (sngU * Faktor) - 20) / 2 / Faktor
Me.Controls.Move X, Y
Me.Zoom = Faktor * 100
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

CruelDevice · 20. Februar 2017

Hallo David,

teste mal folgenden Code:

Code:

Option Explicit

Private Declare Function GetSystemMetrics32 Lib "User32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Sub BildschirmAuflösung()
Dim BildschirmBreite As Long, BildschirmHoehe As Long

BildschirmBreite = GetSystemMetrics32(0)
BildschirmHoehe = GetSystemMetrics32(1)
MsgBox BildschirmBreite & " x " & BildschirmHoehe

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anmerkungen:

Windowsrechner haben eine Taskbar, die ein- oder ausgeblendet sein kann. Dies sollte man bei der Fenstergröße berücksichtigen.

Die Auflösung gilt nur für den primären Bildschirm, falls mehr als ein Monitor am PC hängt.

EDIT:
Code:

BildschirmBreite = GetSystemMetrics32(61)
BildschirmHoehe = GetSystemMetrics32(62)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dies gibt die Größe, die ein maximiertes Fenster zugewiesen bekommt (Also Bildschirm minus irgendwelchen Taskbars, sofern vorhanden). Auch hier nur für den primären Monitor.

Viele Grüße,
Michael

jeffreyclaiton · 21. Februar 2017

Besten Dank!

Office: Userform an Bildschirmgröße Anpassen

Userform an Bildschirmgröße Anpassen

Userform an Bildschirmgröße Anpassen

Userform an Bildschirmgröße Anpassen - Similar Threads - Userform Bildschirmgröße Anpassen

Userform unterdrücken - wenn Datei von andere Datei geöffnet wird

UserForm in Office 2019 für MacOS fehlt

Userform Login Benutzername in Zelle schreiben

Datum in Userform formatieren

UserForm zum bearbeiten von Tabellen und speichern

VBA Code Tabellenblatt kopieren und UserForm

UserForm wechseln