Full Screen display of a Userform

[Legacy 167133]

Hi everyone,

I have a large workbook that displays a Userform on screen with a progressbar while the workbook loads. On my PC the Userform displays "Full Screen", while on different screens of other users it displays differently. Everone using the workbook does so with Office 2007 on Windows xp. Is there some VBA code I could use to "Automatically" set the Userform to Display the Full Screen of any monitor?

Thank you !

 

[Rasm]

Why not use the Width & Height property for sheet - I did not test this - just a suggestion.

Code in sheet or module

UserFormName.Width = ActiveSheet.Width
UserFormName.Height = ActiveSheet.Height

Code ThisworkBook

Private Sub Workbook_WindowResize(ByVal Wn As Window)
     UserFormName.Width = ThisWorkBook.Width 
     UserFormName.Height = ThisWorkBook.Height
End Sub

 

[VoG]

Try

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

Also, take a look here http://www.cpearson.com/excel/FormPosition.htm

 

[Legacy 167133]

Thank you so much VoG,

It seems to be working well, after testing it on two other monitors!