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  

  RSS

Kaleo_rs
(@kaleo_rs)
Trusted Member
Entrou: 6 anos atrás
Posts: 73
24/08/2020 12:58 pm  

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.


ResponderCitar (Quote)
Televisaos
(@televisaos)
Eminent Member
Entrou: 3 meses atrás
Posts: 28
15/09/2020 10:42 am  

Bom dia @kaleo_rs,

Tente usar o código

Windows(1).WindowState = xlMaximized

Ele maximiza a janela ativa.

Att, Televisaos


ResponderCitar (Quote)
Anderson
(@anderson)
Trusted Member
Entrou: 6 meses atrás
Posts: 52
15/09/2020 11:13 am  

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 1 semana atrás por Anderson

Para aprender Excel VBA, acesse o canal EVBA no Youtube.


ResponderCitar (Quote)
Kaleo_rs
(@kaleo_rs)
Trusted Member
Entrou: 6 anos atrás
Posts: 73
19/09/2020 11:31 am  

@televisaos

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


ResponderCitar (Quote)
Televisaos
(@televisaos)
Eminent Member
Entrou: 3 meses atrás
Posts: 28
19/09/2020 11:43 am  

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


ResponderCitar (Quote)
Kaleo_rs
(@kaleo_rs)
Trusted Member
Entrou: 6 anos atrás
Posts: 73
21/09/2020 10:35 pm  

@televisaos

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


ResponderCitar (Quote)
Anderson
(@anderson)
Trusted Member
Entrou: 6 meses atrás
Posts: 52
22/09/2020 8:50 am  
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 2 dias atrás por Anderson

Para aprender Excel VBA, acesse o canal EVBA no Youtube.


ResponderCitar (Quote)
Compartilhar: