Vba- Find Center Of Userform

[AsifShah]

Hello EveryOne,

Need Help, when userform1 open it show in full screen after open userform Frame1 will show in Center of Userform

Userform Full Screen Code working Fine but need Frame1 on Center of Userform VBA Code.

Application.WindowState = xlMaximized
With Me
.Height = Application.Height
.Width = Application.Width
.Top = 0
.Left = 0
End With

 

[Jimmypop]

Hi There

Try the below code in the Userform Initialize event...

Private Sub UserForm_Initialize()
    Application.WindowState = xlMaximized
    With Me
        .Height = Application.Height
        .Width = Application.Width
        .Top = 0
        .Left = 0
    End With
    With Frame1
        .Left = (Me.InsideWidth - .Width) / 2
        .Top = (Me.InsideHeight - .Height) / 2
    End With
End Sub

 

[AsifShah]

Hi There

Try the below code in the Userform Initialize event...

Private Sub UserForm_Initialize()
    Application.WindowState = xlMaximized
    With Me
        .Height = Application.Height
        .Width = Application.Width
        .Top = 0
        .Left = 0
    End With
    With Frame1
        .Left = (Me.InsideWidth - .Width) / 2
        .Top = (Me.InsideHeight - .Height) / 2
    End With
End Sub

Thanks Dear Jimmypop Code working Perfect.

​

 

[Jimmypop]

Thanks Dear Jimmypop Code working Perfect.

​

Glad to hear that and a pleasure to assist... thanks for the feedback

 

[CubaRJ]

Hi

 

[CubaRJ]

Hi There

Try the below code in the Userform Initialize event...

Private Sub UserForm_Initialize()
    Application.WindowState = xlMaximized
    With Me
        .Height = Application.Height
        .Width = Application.Width
        .Top = 0
        .Left = 0
    End With
    With Frame1
        .Left = (Me.InsideWidth - .Width) / 2
        .Top = (Me.InsideHeight - .Height) / 2
    End With
End Sub

Hi Jimmy! I have a question: is it possible to make the "Me." to become a variable? My idea is to have the calculations on a module and keep the initialize event with a simple call to the module like this:

Private Sub UserForm_Initialize()
   Call CalculateWindow
End Sub

Thanks!

 

[Jimmypop]

Hi Jimmy! I have a question: is it possible to make the "Me." to become a variable? My idea is to have the calculations on a module and keep the initialize event with a simple call to the module like this:

Private Sub UserForm_Initialize()
   Call CalculateWindow
End Sub

Thanks!

Hi there...

Not sure of this one... But I did read somewhere that you can declare variable using Dim as Object... might be mistaken... My suggestion would be to start a new thread with part of your question as the heading... doing this would have maybe someone with an answer better see it