VBA Approach To Moving A Userform

[Ark68]

I have a userform is Height = 220 and Width = 312. By default, this userform will pop up in the centre of the window.
In my code, this userform expands to a width of 432, and the height remains unchanged.

I am looking for a VBA solution to recentre the userform based on its new size. One factor that will need to be considered is that the Excel VBA application I'm working on will be used on different sized monitors, so fully a solution can be shared that will compensate for that.

 

[Legacy 456155]

Center of the application window or center of the screen?

 

[Ark68]

Hi Dataluver ... I'm thinking application window.

 

[Legacy 456155]

I suppose that this would do.

Private Sub UserForm_Resize()
    Move ActiveWindow.Width / 2 - Width / 2, ActiveWindow.Height / 2 - Height / 2
End Sub

 

[Ark68]

Thanks dataluver!
Here is how Ihave integrated this into my project:

Sub chg_rcode()
    'Stop
    rcode = permit.cbx_rcode.Value
    With permit
        .Width = 655
        Move ActiveWindow.Width / 2 - Width / 2, ActiveWindow.Height / 2 - Height / 2
    End With
    ... 

This is in a standard module. permit is the user form to be mover. The application is stopping with an error at the point highlighted in red.
"Argument not optional."

 

[Legacy 456155]

I think...

With permit
    .Move ActiveWindow.Width / 2 - 655 / 2, ActiveWindow.Height / 2 - .Height / 2, 655
End With

Maybe this is more readable:

    Dim NewWidth As Long
    Dim NewTop As Long
    Dim NewLeft As Long
    
    NewWidth = 655
    NewLeft = (ActiveWindow.Width / 2) - (NewWidth / 2)
    NewTop = (ActiveWindow.Height / 2) - (Permit.Height / 2)
    Permit.Move NewLeft, NewTop, NewWidth

 

[Ark68]

Ding ding ding! Winner winner chicken dinner!
Thats what I was looking for ... yeah!

Thanks so much DL!

(i do have to test it on a different size monitor, but I have no doubts)

 

[Legacy 456155]

Where's my chicken dinner?