Full screen userform -> How do I automatically center a Frame?

[Maurush]

I know that it is possible to let your userform adapt to fullscreen and that it doesn't matter
what resolution you have, with the following code:

Private Sub UserForm_Initialize()

    With Me
       .Width = Application.UsableWidth
       .Height = Application.UsableHeight
    End With

End Sub

I want to know if I can center a frame in this userform automatically?!

 

[llkhoutx]

I'm not certain what you mean by "frame", but assume that you mean an object.

An object can be centered with a computation based upon it, width, height, and the userform size.

 

[Domenic]

Try...

<font face=Calibri><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> UserForm_Initialize()<br><br>    <SPAN style="color:#00007F">With</SPAN> Me<br>        .Width = Application.UsableWidth<br>        .Height = Application.UsableHeight<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>    <br>    <SPAN style="color:#00007F">With</SPAN> Me.Frame1<br>        .Top = (Me.InsideHeight / 2) - (.Height / 2)<br>        .Left = (Me.InsideWidth / 2) - (.Width / 2)<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>    <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

Change the name of the frame, accordingly.

 

[Maurush]

Try...

Private Sub UserForm_Initialize()

With Me
.Width = Application.UsableWidth
.Height = Application.UsableHeight
End With

With Me.Frame1
.Top = (Me.InsideHeight / 2) - (.Height / 2)
.Left = (Me.InsideWidth / 2) - (.Width / 2)
End With

End Sub


Change the name of the frame, accordingly.

Thank you very much, this worked!