Resize userform VBA

[[]dre]

Hi,

I made an userform on a PC with 1920x1080 resolution but I want to test it on other PC with a lower resolution.

What is the best solution?

Thanks

[Olly]

Option 1) Change your screen resolution, and test

Option 2)

Private Sub UserForm_Activate()
UserForm1.Width = Application.Width * 0.95
End Sub

[[]dre]

I can't test the first one because the maximum resolution PC on I want to test is 1366x768.

I tested the second one and it doesn't work. The userform still larger than monitor

[john55]

or

Private Sub UserForm_Initialize()
    With Application
     .WindowState = xlMaximized
      Zoom = Int(Me.Width / Me.Width * 100)
      Width = .Width
      Height = .Height
    End With
End Sub

[[]dre]

or

Private Sub UserForm_Initialize()
    With Application
     .WindowState = xlMaximized
      Zoom = Int(Me.Width / Me.Width * 100)
      Width = .Width
      Height = .Height
    End With
End Sub

It doesn't work too.

Is it possible to put resize arrows on the corners to resize the userform?

[john55]

or

Private Declare Function GetSystemMetrics32 Lib "User32" _
    Alias "GetSystemMetrics" (ByVal nIndex&) As Long

Private Sub UserForm_Initialize()
    Dim Factor As Single
    Factor = 0.6  'adjust to suit
    Me.Width = GetSystemMetrics32(0) * Factor
    Me.Height = GetSystemMetrics32(1) * Factor
End Sub

see here http://social.msdn.microsoft.com/For...forum=exceldev

[[]dre]

or

Private Declare Function GetSystemMetrics32 Lib "User32" _
    Alias "GetSystemMetrics" (ByVal nIndex&) As Long

Private Sub UserForm_Initialize()
    Dim Factor As Single
    Factor = 0.6  'adjust to suit
    Me.Width = GetSystemMetrics32(0) * Factor
    Me.Height = GetSystemMetrics32(1) * Factor
End Sub

see here http://social.msdn.microsoft.com/For...forum=exceldev

But this only resize the window. I want to resize all content too (textbox, combobox, etc)

[Kyle123]

This is crossposted everywhere:

Your post does not comply with Rule 8 of our Forum RULES. Do not crosspost your question on multiple forums without including links here to the other threads on other forums.

Cross-posting is when you post the same question in other forums on the web. The last thing you want to do is waste people's time working on an issue you have already resolved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser) to the cross-post.

Expect cross-posted questions without a link to be closed and a message will be posted by the moderator explaining why. We are here to help so help us to help you!

Read this to understand why we ask you to do this, and then please edit your first post to include links to any and all cross-posts in any other forums (not just this site).

[Fotis1991]

So until to read our(and all others) forums rules..

Thread closed.