auto-size userforms
 

Hi,

Is there a way in which I can auto-size a userform to fit the whole
screen , dependent on moniter size.

regards

John

auto-size userforms
 

This should maximize de Userform's dimension within Excel Window:

Private Sub UserForm_Initialize()
Me.Height = Application.Height
Me.Width = Application.Width
End Sub

HTH,

--
AP

a écrit dans le message de
ups.com...
Hi,

Is there a way in which I can auto-size a userform to fit the whole
screen , dependent on moniter size.

regards

John

auto-size userforms
 

Hi John,

Try:

'=============
Private Sub UserForm_Initialize()
Application.WindowState = xlMaximized
With Application
Me.Top = .Top
Me.Left = .Left
Me.Height = .Height
Me.Width = .Width
End With
End Sub
'<<=============


---
Regards,
Norman



wrote in message
ups.com...
Hi,

Is there a way in which I can auto-size a userform to fit the whole
screen , dependent on moniter size.

regards

John

auto-size userforms
 

Thanks

This works great, however on one of my forms I have a listbox, I have
added the code to this form, but it makes the form to big, any ideas

John

auto-size userforms
 

Forget the last post I have sorted it now, thanks guys great advice

John