Userform controls autofit to screen size

[Villalobos]

Hello,

I try to build up a user friend userform from the screen point of view, my target is that the userform controls autofit to the screen size. Is there any kind of way to do this?

 

[Deepak]

Hi,

If you mean to say userform with full screen then copy paste below code inside the userform code.

Private Sub UserForm_Initialize()
  With Application
  .WindowState = xlMaximized
  Zoom = Int(.Width / Me.Width * 100)
  Width = .Width
  Height = .Height
  End With
End Sub

 

[Villalobos]

Hello Deepak,

This is what I wanted!
Thank you the advice and have a further nice Sunday!

 

[Deepak]

Welcome!! Have fun with codes.