Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Código para MAXIMIZ...
 
Notifications
Clear all

Código para MAXIMIZAR o Formulário simulando como se tivesse clicando no botão de Maximizar/Minimizar

 
2024 - VBA & Macros
Post Recente por Anderson 4 anos atrás
7 Posts
3 Usuários
0 Reactions
2,044 Visualizações
RSS
Kaleo_rs
 Kaleo_rs
(@kaleo_rs)
Posts: 0
Trusted Member
Topic starter
 

Alguém já executou o MAXIMIZAR de um formulário via código como se tivesse clicando com o mouse no botão maximizar no canto superior direito do formulário?

Tenho uma rotina (que peguei aqui no Forum) que redimensiona o formulário conforme a configuração da tela, visto que a maioria dos monitores são de 24' então deixo o formulário em um tamanho adequado para preenchimento, se já colocar MAXIMIZADO a tela do formulário fica muito grande na tela.

Porém em monitores com tela de 14' o formulário fica pequeno demais e é preciso neste caso MAXIMIZAR.

 
Postado : 24/08/2020 12:58 pm
 Televisaos
(@televisaos)
Posts: 49
Eminent Member
 

Bom dia @kaleo_rs,

Tente usar o código

Windows(1).WindowState = xlMaximized

Ele maximiza a janela ativa.

Att, Televisaos

 
Postado : 15/09/2020 10:42 am
 Anderson
(@anderson)
Posts: 203
Reputable Member
 

Este vídeo explica:

 

https://youtu.be/bMC3sMe35Ww

 

Mais vídeos relacionados:

 

https://www.youtube.com/results?search_query=vba+maximizar+formulario

Este post foi modificado 4 anos atrás por Anderson

Em 90% dos casos em que não se anexa o arquivo, ocorrem mal-entendidos, gerando perda de tempo de ambos os lados.

 
Postado : 15/09/2020 11:13 am
Kaleo_rs
 Kaleo_rs
(@kaleo_rs)
Posts: 0
Trusted Member
Topic starter
 

@televisaos

Bom dia... Não funcionou. Vou colocar em anexo a planilha, talvez você saiba identificar melhor o problema.

 
Postado : 19/09/2020 11:31 am
 Televisaos
(@televisaos)
Posts: 49
Eminent Member
 

Bom dia @kaleo_rs,

Talvez a forma que o @anderson utiliza no vídeo atenda à sua necessidade. Chegou a dar uma olhada também?

Att, Televisaos

 
Postado : 19/09/2020 11:43 am
Kaleo_rs
 Kaleo_rs
(@kaleo_rs)
Posts: 0
Trusted Member
Topic starter
 

@televisaos

Boa noite. Sim, e inclusive já existiam as dicas do vídeo na planilha. Mas estou apanhando feio para maximizar. 

 
Postado : 21/09/2020 10:35 pm
 Anderson
(@anderson)
Posts: 203
Reputable Member
 
Sub UserForm_Initialize() ' CONFIGURA/CARREGA AS INFORMACOES DO FORMULARIO
'***********************************************************************************************************
'
' CONFIGURAÇÃO DO FORMULARIO PARA MAXÍMAZAR OU MINÍMIZAR
'
InitMaxMin Me.Caption
Ht = Me.Height
Lg = Me.Width
Application.WindowState = xlMaximized
Me.Height = Application.Height
Me.Width = Application.Width
Me.Left = Application.Left
Me.Top = Application.Top
'
' OCULTA O "X" DE FECHAR DO FORMULARIO
' HideCloseButton Me
'
' CARREGA AS INFORMACOES NAS COMBOBOX DO FORMULARIO
'
xLin = 2
Do Until Sheets("Diversos").Cells(xLin, 16) = ""
SAIDA_TIPO_SAIDA.AddItem Sheets("Diversos").Cells(xLin, 16)
xLin = xLin + 1
Loop
'
xLin = 2
Do Until Sheets("Diversos").Cells(xLin, 4) = ""
SAIDA_TIPO_OPE.AddItem Sheets("Diversos").Cells(xLin, 4)
xLin = xLin + 1
Loop
'
xLin = 2
Do Until Sheets("Diversos").Cells(xLin, 48) = ""
SAIDA_FORMA_PGT.AddItem Sheets("Diversos").Cells(xLin, 48)
xLin = xLin + 1
Loop
'
' AS FORMAS QUE VAI TRATAR OS LANÇAMENTOS
SAIDA_A_D_S.AddItem "A"
SAIDA_A_D_S.AddItem "D"
SAIDA_A_D_S.AddItem "S"
'
SAIDA_LIMPA_TELA.Value = 0 ' LIMPA O CHEKBOX PARA LIMPAR AS VARIAVEIS QUANDO CLICAR EM OK
'
SAIDA_PESQUISA_LAN_FUTURO.Value = 0 ' LIMPA O CHEKBOX PARA PESQUISA PELO TIPO DE SAIDA QUANDO CLICAR NOS BOTÕES DE PESQUISA
'
SAIDA_PESQUISA_LAN_FUTURO_DATA.Value = 0 ' LIMPA O CHEKBOX PARA PESQUISA PELO TIPO DE SAIDA QUANDO CLICAR NOS BOTÕES DE PESQUISA
SAIDA_PESQUISA_LAN_FUTURO_DATA.Enabled = False ' OCULTA O CHECKBOX PARA PESQUISA
'
SAIDA_PESQUISA_LAN_SAIDA.Value = 0 ' LIMPA O CHEKBOX PARA PESQUISA PELO TIPO DE SAIDA QUANDO CLICAR NOS BOTÕES DE PESQUISA
'
SAIDA_INSERIR_TEXTO_OBS.Value = 0 ' LIMPA O CHEKBOX PARA NÃO INSERIR O TEXTO PARCELA 00/00 NO CAMPO OBSERVAÇÃO QDO A PARCELA FOR MAIOR QUE 1
'
xAlterar_Saida = "N"
xLin_Alterar_Saida = 0
xNome_Planilha = ThisWorkbook.Name ' NOME DO ARQUIVO(PLANILHA) QUE ESTÁ SENDO ABERTO
xBotao_Ativo = ""
'
End Sub
Este post foi modificado 4 anos atrás por Anderson

Em 90% dos casos em que não se anexa o arquivo, ocorrem mal-entendidos, gerando perda de tempo de ambos os lados.

 
Postado : 22/09/2020 8:50 am
Forum Jump:
  Tópico Anterior
Próximo Tópico