Office: Bildschirmauflösung anpassen

Hallo Hajo_Zi,
ich bin seit heute in diesem Forum angemeldet und habe sehr wenig Erfahrung mit VBA allgemein.
Trotzdem habe ich durch die gesammelte Informationen ein Programm erstellt
(bin sehr stolz drauf *grins )und funktioniert bislang auch.
Nun zu meiner Frage,
1. Ich habe mir die verbesserte Datei (welche du an David007 geschickt hast) angeschaut und festgestellt, dass die Userform (zumindest bei mir) nicht richtig aufgeht (anbei ein Bild).
Die 2 Button rechts sind nicht ersichtlich, woran liegt das?
Mach ich etwas falsch? Sind die Eigenschaften noch zu verbessern?!
Das gleiche Problem habe ich mit meinem Programm auch ich habe ein Code gefunden, welche bei mir passt, habe es auch bei Freunde probiert funktioniert super, aber wenn ich die Datei an einem Laptop öffnen will, dann ist mein Userform nicht in der Mitte (also unten) und die grösse passt nicht.
Bin langsam verzweifelt.
Ps.: Mein Code ist :

(in einem Modul)


Option Explicit
' Bildschirmauflösung, unter der die Userform erstellt wurde
Public Const X_RESOLUTION = 1280 '640
Public Const Y_RESOLUTION = 1024 '480
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1
Public Sub SetDeviceIndependentWindow(frmLizens As Object)


' Diese Prozedur passt die Größe und Anordnung einer Userform
' an die jeweilige Auflösung an.
' Im Prozeduraufruf muss die zu ändernde Userform angegeben werden
Dim XFactor As Single ' Horizontal resize ratio
Dim YFactor As Single ' Vertical resize ratio
Dim X As Integer ' For/Next loop variable
Dim xPixels As Single
Dim yPixels As Single
Dim HeightChange As Long
Dim WidthChange As Long
Dim OldHeight As Long
Dim OldWidth As Long
Dim ctlControl As Control
'
' Fehlermeldungen abfangen
On Error GoTo ErrorHandler
' Vergrößerungs-/Verkleinerungsfaktor der aktuellen Auflösung
' in Bezug auf die ursprünglche Auflösung
XFactor = GetSystemMetrics32(SM_CXSCREEN) / X_RESOLUTION
YFactor = GetSystemMetrics32(SM_CYSCREEN) / Y_RESOLUTION
' Keine Neuanordung bei identischer Auflösung
If XFactor = 1 And YFactor = 1 Then Exit Sub
' Alte Einstellungen sichern
OldHeight = frmLizens.Height
OldWidth = frmLizens.Width
' Neue Abmessung der Userform berechnen
frmLizens.Height = frmLizens.Height * YFactor
frmLizens.Width = frmLizens.Width * XFactor
' Änderungen der Abmessungen
HeightChange = frmLizens.Height - OldHeight
WidthChange = frmLizens.Width - OldWidth
' Userform neu positionieren
frmLizens.Left = frmLizens.Left - WidthChange / 2
frmLizens.Top = frmLizens.Top - HeightChange / 2
' Alle Controls durchlaufen und ändern
For Each ctlControl In frmLizens.Controls
Debug.Print ctlControl.Name
If TypeOf ctlControl Is ComboBox Then
' If Not a Simple Combo box
ctlControl.FontSize = ctlControl.FontSize * XFactor
If ctlControl.Style 1 Then
ControlResize3 ctlControl, XFactor, YFactor
End If
ElseIf TypeOf ctlControl Is TextBox Then
ControlResize ctlControl, XFactor, YFactor
ElseIf TypeOf ctlControl Is Label Then
ControlResize ctlControl, XFactor, YFactor
ElseIf TypeOf ctlControl Is CheckBox Then
ControlResize2 ctlControl, XFactor, YFactor
ElseIf TypeOf ctlControl Is CommandButton Then
ControlResize2 ctlControl, XFactor, YFactor
ElseIf TypeOf ctlControl Is ListBox Then
ControlResize ctlControl, XFactor, YFactor
ElseIf TypeOf ctlControl Is Image Then
ControlResize3 ctlControl, XFactor, YFactor
ElseIf TypeOf ctlControl Is OptionButton Then
ControlResize2 ctlControl, XFactor, YFactor
ElseIf TypeOf ctlControl Is MultiPage Then
ControlResize2 ctlControl, XFactor, YFactor
ElseIf TypeOf ctlControl Is ToggleButton Then
ControlResize2 ctlControl, XFactor, YFactor
ElseIf TypeOf ctlControl Is SpinButton Then
ControlResize3 ctlControl, XFactor, YFactor
ElseIf TypeOf ctlControl Is ScrollBar Then
ControlResize3 ctlControl, XFactor, YFactor
Else
ControlResize2 ctlControl, XFactor, YFactor
End If
Next ctlControl
Exit Sub
ErrorHandler:
' try to handle next control
Resume Next
End Sub

Function ControlResize(Control As Control, XFactor, YFactor)
With Control
.FontSize = .FontSize * XFactor
.Move .Left * XFactor, .Top * YFactor, .Width * XFactor, .Height * YFactor
End With
End Function

Function ControlResize2(Control As Control, XFactor, YFactor)
With Control
.Font.Size = .Font.Size * XFactor
.Move .Left * XFactor, .Top * YFactor, .Width * XFactor, .Height * YFactor
End With
End Function

Function ControlResize3(Control As Control, XFactor, YFactor)
With Control
.Move .Left * XFactor, .Top * YFactor, .Width * XFactor, .Height * YFactor
End With
End Function


(in Userform)
habe ich den Code auf die bezogene Userform auf Activate drin

Im voraus vielen Dank.

 

Natürlich kann jeder mein Problem beantworten!!! *sos