Redimensionar Comma...
 
Notifications
Clear all

Redimensionar CommandButton conforme resolução da tela

6 Posts
2 Usuários
0 Reactions
2,061 Visualizações
(@joaofan11)
Posts: 0
New Member
Topic starter
 

Boa noite;

Gostaria de saber se tem algum jeito de redimensionar o CommandButton de acordo com o tamanho do Userform;

Para quando abrir o formulário em outra tela ele adaptado.

Obs: Segue Exemplo abaixo.

Sds, João Fernandes

 
Postado : 07/06/2017 5:27 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia JoaoFAN11,

Tenta assim... Insere esse código:

Private Sub UserForm_Resize()
    Me.CommandButton1.Height = Me.Height / 3.5
    Me.CommandButton2.Height = Me.Height / 3.5
    
    Me.CommandButton1.Width = Me.Width / 3.5
    Me.CommandButton2.Width = Me.Width / 3.5
    
    Me.CommandButton1.Top = Me.Height / 3
    Me.CommandButton2.Top = Me.Height / 3
    
    Me.CommandButton1.Left = Me.Width / 6
    Me.CommandButton2.Left = Me.Width / 6 + (Me.Width / 3)
End Sub

Qualquer coisa da o grito.
Abraço

 
Postado : 08/06/2017 12:39 pm
(@joaofan11)
Posts: 0
New Member
Topic starter
 

Bom dia Bernardo;

Agradeço sua ajuda mas não consigo adaptar esse código no meu formulário.

Segue Exemplo2.

Sds, João Fernandes.

 
Postado : 09/06/2017 7:51 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se este modelo ajuda:

Form e controles FullScreen

 
Postado : 09/06/2017 8:30 am
(@joaofan11)
Posts: 0
New Member
Topic starter
 

Boa tarde Mauro Coutinho;

Sua planilha não funciona no Excel 64 bits e como eu uso o PC da trabalho não posso Editar seu código para o meu formulário.

Sds, João Fernandes

 
Postado : 27/06/2017 10:40 am
(@joaofan11)
Posts: 0
New Member
Topic starter
 

https://www.youtube.com/watch?v=bMC3sMe35Ww&t=260s

 
Postado : 04/08/2017 7:37 am