Notifications
Clear all

Form 100%

4 Posts
2 Usuários
0 Reactions
1,052 Visualizações
(@vonzuben)
Posts: 549
Prominent Member
Topic starter
 

Funciona corretamente em qualquer resolução ?

With
Width = Application.Width
Height = Application.Height
End With

Me. Zoom = 190

 
Postado : 23/11/2017 11:02 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Eu não entendi.

Seria algo do tipo maximizar o UserForm?

Private Sub UserForm_Initialize()
    Application.WindowState = xlMaximized
    UserForm1.Height = Application.Height
    UserForm1.Width = Application.Width

End Sub

Att

 
Postado : 23/11/2017 1:47 pm
(@vonzuben)
Posts: 549
Prominent Member
Topic starter
 

Mas fica perfeito em qualquer resolução ou posso ter problemas com alguns ?

Obrigado !

 
Postado : 23/11/2017 4:22 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Eu creio que não!

Att

 
Postado : 24/11/2017 5:11 am