none
Excel VBA - Userform Menu, minimizar/maximizar RRS feed

  • Pergunta

  • Bom dia pessoal,

    Estou com um pequeno problema, estou a fazer um pequeno trabalho em Excel VBA, mas deparei-me com uma situação que não estou a conseguir resolver. Ao fazer um pequeno menu criei um sistema de maximizar e minimizar o formulário mas não consigo fazer com que o conteúdo do menu acompanhe o tamanho do formulário como está na imagem a servir como exemplo.

    Já tentei utilizar em código o ZOOM mas não fica bonito e não irá funcionar noutro computador se o ecrã for maior ou mais pequeno, a não ser que altere a medidas manualmente.

    Alguém me pode ajudar com esta situação? 

    Agradecia imenso ;) Obrigado peloa atenção ;)

    domingo, 24 de julho de 2016 12:30

Respostas

  • X-Trex

    Use o evento Resize:

    Private Sub UserForm_Resize()
      
      MultiPage1.Width = Me.Width
      btnFechar.Left = MultiPage1.Width - btnFechar.Width - 10  '10: valor de correção para o posicionamento
      
    End Sub
    


    Natan

    • Marcado como Resposta X-trex sábado, 6 de agosto de 2016 12:17
    domingo, 24 de julho de 2016 14:43

Todas as Respostas

  • X-Trex

    Use o evento Resize:

    Private Sub UserForm_Resize()
      
      MultiPage1.Width = Me.Width
      btnFechar.Left = MultiPage1.Width - btnFechar.Width - 10  '10: valor de correção para o posicionamento
      
    End Sub
    


    Natan

    • Marcado como Resposta X-trex sábado, 6 de agosto de 2016 12:17
    domingo, 24 de julho de 2016 14:43
  • Não consigo ver muito bem pela figura. Você está inserindo controles numa planilha ou num formulário?

    http://www.ambienteoffice.com.br - http://www.clarian.com.br

    segunda-feira, 25 de julho de 2016 09:33
    Moderador
  • Boa tarde Felipe,

    Estou inserindo os controles dentro de um formulário.

    sábado, 6 de agosto de 2016 12:04
  • Boa tarde Natan,

    Funcionou impecável... Muito obrigado mesmo, andei muito tempo de volta disto mas graças a si consegui fazer... Muito obrigado mesmo :)

    Com os melhores comprimentos,

    X-trex


    sábado, 6 de agosto de 2016 12:17