Excel VBA Form Move - Xtreme Visual Basic Talk

04-01-2009, 10:19 AM

Josh Hazel Josh Hazel is offline

Senior Contributor

Join Date: May 2008

Posts: 805

Excel VBA Form Move

I have Form1 and Form2. I want Form2 to always line up next to Form1, even after I move Form1 (especially after I move Form1).

Is there some kind of UserForm_Move event that I can use to have Left/Top always change to match the new location of the Form1?

Example code is appreciated. Thanks!

04-01-2009, 12:02 PM

Colin Legg

Out Of Office

Retired Moderator
* Expert *

Join Date: Mar 2005

Location: London, UK

Posts: 3,398

Hi,

Both userforms are shown modelessly?

Yes, you can do this - have a look at the userform's Layout event handler.

Hope that helps
Colin

__________________
RAD Excel Blog

04-01-2009, 04:26 PM

Josh Hazel Josh Hazel is offline

Senior Contributor

Join Date: May 2008

Posts: 805

Quote:

Originally Posted by Colin_L

Both userforms are shown modelessly?
Yes, you can do this - have a look at the userform's Layout event handler.

Yes both Modeless... still a bit new to the VBA (self taught, and im a sucky teacher) ... not sure what we mean about the Layout event handler? Do you have a link to a page I can read about it?

If Google = NoHelp Then PostHere = True

04-02-2009, 06:21 AM

Mill

Just another Excel nerd

Retired Moderator
* Guru *

Join Date: Feb 2000

Location: Michigan, USA

Posts: 2,626

Quote:

Originally Posted by Josh Hazel

Instead of a Form_Move event that occurs when a form is moved in Visual Basic, Excel VBA has a Userform_Layout event that occurs when you move an Excel userform.

Code:

Private Sub UserForm_Layout()

    Debug.Print Me.Top, Me.Left, Me.Height, Me.Width
    
End Sub

__________________
"The face of a child can say it all, especially the mouth part of the face." - Jack Handey

04-02-2009, 01:39 PM

Josh Hazel Josh Hazel is offline

Senior Contributor

Join Date: May 2008

Posts: 805

Ahh yes that works perfect ... thanks!

__________________
Josh

If Google = NoHelp Then PostHere = True