Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
712to716
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
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Frame auf Userform zentrieren

Frame auf Userform zentrieren
23.12.2005 15:03:46
Vliegen
Hallo,
Habe eine Userform die sich entsprechende der Bildschirmauflösung zum Vollbild maximiert.
Application.WindowState = xlMAximized
Me.Width = Application.Width
Me.Height = Application.Height
Damit die einzelenen Elemente aber nicht so oben in der linken Ecke hängen wenn die Auflösung höher ist würde ich gerne alle Objekte auf einem Frame mit Mindestabmessung gruppieren und entsprechend zentrieren.
Vermute dass die Position des Frames entsprechend der Bildschirmauflösung neu errechnete werden muss. Hat jemand vielleicht einen Makro das dieses Zentrieren macht. Alleine traue ich mir das nicht zu.
Gruss aus Belgien,
François

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Frame auf Userform zentrieren
23.12.2005 15:23:00
Beni
Hallo François,
Gruss Beni
Dim MyControl As Object
For Each MyControl In Controls
MyControl.Top = MyControl.Top * Application.Height / UserForm1.Height
MyControl.Left = MyControl.Left * Application.Width / UserForm1.Width
MyControl.Width = MyControl.Width * Application.Width / UserForm1.Width
Next
AW: Frame auf Userform zentrieren
23.12.2005 15:51:34
Vliegen
Hallo Beni,
Danke erstmal für die schnelle Antwort. Brauche ja nur ein Frame zu zentrieren, alles andere befindet sich da drauf und ist dann auch automatisch zentriert.
Vielleicht mache ich was falsch aber jedenfalls klappt es nicht. Das Frame bleibt auf der Userform genau da wo es war. Zentrieren findet nicht statt. Hier der Code den ich verwendet habe.
Was muss ich da ändern ?
Gruss,
François

Private Sub UserForm_Initialize()
Application.WindowState = xlMaximized
Me.Width = Application.Width
Me.Height = Application.Height
Frame1.Top = Frame1.Top * Application.Height / Me.Height
Frame1.Left = Frame1.Left * Application.Width / Me.Width
Frame1.Width = Frame1.Width * Application.Width / Me.Width
End Sub

Anzeige
AW: Frame auf Userform zentrieren
23.12.2005 17:15:38
Uduuh
Hallo,
Application.Height / Me.Height ergibt doch 1 und damit ändert sich nix.
Frame1.Left= (Me.Width-Frame1.Width)/2
Frame1.Top= (Me.height-Frame1.Height)/2
Gruß aus’m Pott
Udo

AW: Frame auf Userform zentrieren
23.12.2005 18:36:18
Vliegen
Hallo Uuduuuh,
Funzt einwandfrei. Das nenn ich ein Weihnachtsgeschenk. Danke.
Alles gute und frohe Festtage.
Gruss,
Francois
AW: Frame auf Userform zentrieren
24.12.2005 12:51:09
Hajo_Zi
Hallo Francois,
was ist an der Frage noch offen ?
Gruß Hajo

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige