Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Carregar os Userfor...
 
Notifications
Clear all

Carregar os Userforms através de Botão de Comando

 
2024 - VBA & Macros
8 Posts
1 Usuários
0 Reactions
1,800 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá pessoal, estou com alguns problemas de macro, não estou conseguindo chamar os userforms pelos botões dos menus suspensos no userform principal, não sei o que esta faltando alguma coisa,também estou utilizando o código abaixo para deixar o meu UserForm principal em full screen, mas meu userForm esta passando da tela do monitor, gostaria que meu UserForm adapta-se em qualquer resolução de monitor,

full screen

Private Sub UserForm_Initialize()
    
    Application.WindowState = xlMaximized
    Me.Height = Application.Height
    Me.Width = Application.Width
    Me.Left = Application.Left
    Me.Top = Application.Top

End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
UserForm_Initialize
End Sub

Estou enviando o anexo para melhor entendimento.

silva_jmp

Igreja Presbiteriana Renovada - Sys Virtual 1.0.rar
 
Postado : 31/12/2012 2:07 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Leia as regras seu título não é apropriado!!!

Use a pesquisa do fórum!!!!
O assunto abaixo já foi respondido por algumas vezes.

userForm esta passando da tela do monitor, gostaria que meu UserForm adapta-se em qualquer resolução de monitor

Att

 
Postado : 31/12/2012 2:15 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ola,

Utilize no evento Initialize do formulário a rotina abaixo:

Application.WindowState = xlMaximized
With SEUFORMULARIO
.Width = Application.Width
.Height = Application.Height
.Left = Application.Left
.Top = Application.Top
End if

 
Postado : 31/12/2012 2:52 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Guima

Utilizei seu código e o resultado ficou o mesmo, será que e a resolução do monitor do meu note (1366 x 768) 15,6" HD LED LCD.?

silva_jmp

 
Postado : 31/12/2012 3:42 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Não testado!


Private Sub UserForm_Initialize()
    

    With Me
       .Width = Application.UsableWidth
       .Height = Application.UsableHeight
    End With


    'Application.WindowState = xlMaximized
    'Me.Height = Application.Height
    'Me.Width = Application.Width
    'Me.Left = Application.Left
    'Me.Top = Application.Top

End Sub
 
Postado : 31/12/2012 4:16 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Silva,não cheguei a ver seu exemplo, mas baixe o exemplo que eu anexei (ZoomCheckOption.rar) no link abaixo, onde temos a rotina para Maximizar o Formulário de acordo com a resolução do monitor.

Zoom em Formulário / Checkbox e OptionButtons e demais controles
viewtopic.php?f=23&t=6387

[]s e

FELIZ ANO NOVO

 
Postado : 31/12/2012 4:45 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Mauro/Alexandre obrigado pela ajuda, feliz ano novo para vocês....

silva_jmp

 
Postado : 03/01/2013 9:01 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Obrigado pelo retorno, tenha um feliz 2013, até a próxima ;)

Att

 
Postado : 03/01/2013 9:34 am
Forum Jump:
  Tópico Anterior
Próximo Tópico