Hi there
I am trying to make userform full screen size and center the object once maximized.
I have achieved the full screen part, but my code does not send object to center of screen, but top left instead.
My code is as follows:
Private Sub UserForm_Activate()
Me.Height = Application.Height
Me.Width = Application.Width
Me.Left = Application.Left
Me.Top = Application.Top
Me.MultiPage1.Left = (Me.MultiPage1.Width / 2) - (Me.MultiPage1.Width / 2)
Me.MultiPage1.Top = (Me.MultiPage1.Height / 2) - (Me.MultiPage1.Height / 2)
End
Please help!
Thank you
I am trying to make userform full screen size and center the object once maximized.
I have achieved the full screen part, but my code does not send object to center of screen, but top left instead.
My code is as follows:
Private Sub UserForm_Activate()
Me.Height = Application.Height
Me.Width = Application.Width
Me.Left = Application.Left
Me.Top = Application.Top
Me.MultiPage1.Left = (Me.MultiPage1.Width / 2) - (Me.MultiPage1.Width / 2)
Me.MultiPage1.Top = (Me.MultiPage1.Height / 2) - (Me.MultiPage1.Height / 2)
End
Please help!
Thank you