VBA - User Forms and Multiple Screens

[vba_monkey]

Hello,

Only a minor issue this one but it's slightly annoying so I wanted to see if there was a fix.

When running a macro that has a user form on a machine with more than one screen, the userform always appears on the opposite screen to the active workbook. Is it possible to specify which screen you want the form to appear on (as in, on top of the active workbook)?

Thanks

 

[Peter h]

Hello,

Only a minor issue this one but it's slightly annoying so I wanted to see if there was a fix.

When running a macro that has a user form on a machine with more than one screen, the userform always appears on the opposite screen to the active workbook. Is it possible to specify which screen you want the form to appear on (as in, on top of the active workbook)?

Thanks

I use this in the Userform_Initialize sub

Me.Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
Me.Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)

It should always center the userform over excel.

 

[vba_monkey]

First attemp didnt work but I've managed to get it to work by changing it to this:

UserForm1.Left = Application.Left + (0.5 * Application.Width) - (0.5 * Application.Width)
UserForm1.Top = Application.Top + (0.5 * Application.Height) - (0.5 * Application.Height)

The form is on the right screen but is on the far left, how would I move it to the middle?

 

[Peter h]

Oh sorry. I didn't copy and paste the code, so that is my typing error. Try this.

With Me
.Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
.Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
End With

 

[vba_monkey]

Thanks, Peter. Now working.

 

[Peter h]

Great. Glad I could help.