Tvungen placering af en userform

Opret disse to variabler i et modul.

Public UserformTop As Long
Public UserformLeft As Long

Indsæt denne kode i userformen.

Private Sub UserForm_Activate()
  If UserformTop = 0 Then ' Userformen centreres hvis UserformTop er 0
    UserformTop = Application.Height / 2 - (UserForm1.Height / 2)
  End If
  If UserformLeft = 0 Then ' Userformen centreres hvis UserformLeft er 0
    UserformLeft = Application.Width / 2 - (UserForm1.Width / 2)
  End If
  UserForm1.Top = UserformTop
  UserForm1.Left = UserformLeft
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  UserformTop = UserForm1.Top
  UserformLeft = UserForm1.Left
End Sub

Følgende skal tilføjes alt det der kan lukke userformen.

  UserformTop = UserForm1.Top
  UserformLeft = UserForm1.Left

Trikket er at fange placeringen og gemme den før userformen lukkes.
Så skal koden i UserForm_Activate nok sørge for at åbne formen samme sted som den blev lukket.

Ikke så elegant. Men det virker.

Du har ret i, at det ikke er så elegant, men det virker helt fint :O)

Er der også en mulighed for, at styre hvilken skærm, userformen placeres på. Nogle af vores brugere anvender nemlig to skærme.

Hvis ikke, så må du gerne lægge et svar, da du har løst den oprindelige opgave til UG.

Jeg ved ikke hvordan man arbejder på to skærme, så det kan jeg ikke hjælpe med.

Tak for ros.
Jeg samler ikke på point, så dem beholder du bare selv.

Jeg takker endnu engang og lukke.