With this macro I set my userform to maximum screensinze.

Sub UserForm_Initialize()
With Application
Me.Top = .Top
Me.Left = .Left
Me.Height = .Height
Me.Width = .Width
End With
End Sub

In the footer of the userform I would like to place some bittons / remarks
and tried this code:

Private Sub UserForm_Activate()
CommandButton1.Top = UserForm1.Height - 20
End Sub

But, this will not work. Someone have an idea?

Gert-Jan

Try:
CommandButton1.Top = Me.top + Me.Height - 20

HTH
--
AP

"Gert-Jan" a écrit dans le message de news:
...
With this macro I set my userform to maximum screensinze.

Sub UserForm_Initialize()
With Application
Me.Top = .Top
Me.Left = .Left
Me.Height = .Height
Me.Width = .Width
End With
End Sub

In the footer of the userform I would like to place some bittons / remarks
and tried this code:

Private Sub UserForm_Activate()
CommandButton1.Top = UserForm1.Height - 20
End Sub

But, this will not work. Someone have an idea?

Gert-Jan

Thanks, this works (-20 isn't enough, you need -60 at least.)

"Ardus Petus" schreef in bericht
...
Try:
CommandButton1.Top = Me.top + Me.Height - 20

HTH
--
AP

"Gert-Jan" a écrit dans le message de news:
...
With this macro I set my userform to maximum screensinze.

Sub UserForm_Initialize()
With Application
Me.Top = .Top
Me.Left = .Left
Me.Height = .Height
Me.Width = .Width
End With
End Sub

In the footer of the userform I would like to place some bittons /
remarks and tried this code:

Private Sub UserForm_Activate()
CommandButton1.Top = UserForm1.Height - 20
End Sub

But, this will not work. Someone have an idea?

Gert-Jan