Código para Maximizar e Redimensionar Userform

Para maximizar um userform, use o código abaixo:

Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1

Function Video() As String
Dim largura
Dim altura
largura = DisplaySize(SM_CXSCREEN)
altura = DisplaySize(SM_CYSCREEN)
valor = largura * altura
If valor = 307200 Then Video = “640×480”
If valor = 480000 Then Video = “800×600”
If valor = 786432 Then Video = “1024×768”
End Function

Para o Userform declare
Private Sub UserForm_Initialize()
If Video = “640×480” Then
w = 640
h = 480
End If
If Video = “800×600” Then
w = 800
h = 600
End If
If Video = “1024×768” Then
w = 1024
h = 768
End If

UserForm1.Height = h
UserForm1.Width = w
UserForm1.StartUpPosition = 2
Assim seu formulario terá o tamanho da tela!!!

Application.Visible = False (irá ocultar o Excel)
Application.Visible = True (irá aparecer o Excel)

 

Para redimensionar um userform, use o seguinte exemplo.