Display Position Co-Ordinates of Userform

[michaeldh]

Hi,

Hoping you could assist me with the following:

Macro to display the position co-ordinates of a userform as and when user moves it in real time...the co-ordinates can be displayed on worksheet.

ie Postion from top and position from left etc

Thanks.

 

[id107]

Try this:

Private Sub UserForm_Layout()
    Sheets("Sheet1").Range("A1").Value = UserForm1.Left
    Sheets("Sheet1").Range("B1").Value = UserForm1.Top
End Sub

 

[michaeldh]

Hi,

Are you able to suggest how I can display Top and Left as the userform is moved on a live basis...want to see the co-ordinates changing live as the form moves on the screen.

Thanks.

 

[id107]

The code above does just that.

 

[michaeldh]

Thanks Craig works perfectly thanks so much!!