Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1588to1592
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
Inhaltsverzeichnis

Button auf UF mittig

Button auf UF mittig
13.11.2017 10:11:02
Sigrid
Guten Morgen zusammen,
ich habe mir mal eine Userform aus dem Netz gesucht, die beim starten
öffnen soll.
Die passt sich dem Bildschirm an.
Nun möchte ich gern, beim starten der UF das die vorhandenen
CommandButton sich ebenfalls mittig plazieren, habe leider nichts
passendes gefunden.
Private Sub UserForm_Initialize()
'--------------- für die Bildschirmanpassung ----------------------------------
Dim hwndForm  As Long
Dim hwndMenu  As Long
Dim intY      As Integer
Dim intLast   As Integer
Dim intNext   As Integer
Dim UserForm
' On Error Resume Next
'Dim UserForm
'--------------- für Bildschirmanpassung ------
With Me
.StartUpPosition = 0
.Top = 0
.Left = 0
.Height = GetDeviceCaps(GetDC(0&), HORZRES)
.Width = GetDeviceCaps(GetDC(0&), VERTRES)
End With
ReleaseDC 0, GetDC(0&)
hwndForm = FindWindow(GC_CLASSNAMEMSEXCELFORM, Me.Caption)
If hwndForm  0 Then
hwndMenu = GetSystemMenu(hwndForm, 0)
If hwndMenu  0 Then DeleteMenu hwndMenu, SC_MOVE, MF_BYCOMMAND
End If
Sheets("Start").Select
Range("A1").Select
End Sub
gruß
Sigrid

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Button auf UF mittig
13.11.2017 11:03:56
Peter(silie)
Hallo,
Private Sub UserForm_Initialize()
Dim X_Left_New As Long
X_Left_New = Me.Width / 2 - 1 - (Me.CommandButton1.Width / 2)
Me.CommandButton1.Left = X_Left_New
End Sub

AW: Button auf UF mittig
13.11.2017 12:36:36
Lorenz
Hi Peter,
danke erstmal, allerdings hat mich das nicht wirklich weiter gebracht! Kannst du vielleicht ein zwei Sätze dazu schreiben, wie der Code zu verstehen ist?
AW: Button auf UF mittig
13.11.2017 13:18:40
Peter(silie)
Hallo,
Me = Userform
CommandButton1 = "dein button"
X_Left_New = Variable zum speichern der Button Position
X_Left_New = (((Userform Breite) / 2) - 1) - (Button Breite) / 2 

Was ich da weiter erklären soll ist mir unklar...
Anzeige
soweit aber
13.11.2017 14:37:42
Sigrid
Hallo Peter und Lorenz,
habe mal eingesetzt.
Danke für die Unterstützung.
CommandButton1 wird nicht zentral in der MITTE plaziert, vielmehr etwas nach rechts.
gruß
Sigrid

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige