Tom’s Tutorials For Excel: Maximizing Your UserForm to Full Screen Size

Tom’s Tutorials For Excel: Maximizing Your UserForm to Full Screen Size

To fill the screen with your UserForm while maintaining the relative position of the form’s controls, stick this Initialize event code into the UserForm’s module:

Private Sub UserForm_Initialize() 
With Application 
.WindowState = xlMaximized 
Zoom = Int(.Width / Me.Width * 100) 
Width = .Width 
Height = .Height 
End With
End Sub
Share Button
Posted in Tom's Tutorials for Excel
Tags: , , , , , , , , , , , , ,

Leave a Reply

Your email address will not be published. Required fields are marked *

*