Como usar o evento Redimensionar no VBA?

No VBA (Visual Basic for Applications), o evento de redimensionamento, geralmente chamado de `Resize`, é utilizado principalmente em formulários do Excel (UserForms) ou ao manipular janelas de aplicação customizadas. Este evento é acionado sempre que um formulário é redimensionado. Aqui está como você pode usar o evento `Resize` em um UserForm:

  • Crie um UserForm:
    • No Excel, pressione `ALT` + `F11` para abrir o Editor do VBA.
    • No menu, clique em `Inserir` e depois em `UserForm` para adicionar um novo UserForm ao seu projeto.
  • Acione o evento Resize:
    • Na janela do projeto, clique duas vezes no UserForm que você criou.
    • No editor de código do UserForm, você verá duas listas suspensas no topo. No lado esquerdo, escolha `UserForm` se já não estiver selecionado.
    • No lado direito, você verá a lista de eventos disponíveis. Selecione `Resize`.
  • Implemente o código dentro do evento Resize:
    • Agora você pode adicionar o código que deseja executar sempre que o UserForm for redimensionado.

Exemplo de código usando o evento `Resize`:

Private Sub UserForm_Resize()
    ' Exemplo simples: redimensiona um controle Label para acompanhar o tamanho do UserForm
    On Error Resume Next
    Me.Label1.Width = Me.Width - 20
    Me.Label1.Height = Me.Height - 50
    On Error GoTo 0
End Sub

Neste exemplo, assumimos que exista um controle `Label1` no UserForm. O código ajusta a largura e altura do `Label` sempre que o UserForm é redimensionado, mantendo bordas de 20 e 50 unidades em relação às extremidades do UserForm.

Dicas:

  • Proteja seu código: Ao redimensionar controles, você pode querer adicionar verificações para garantir que os controles não sejam redimensionados para tamanhos negativos ou muito pequenos.
  • Teste: Teste o redimensionamento em diferentes resoluções e proporções de tela para garantir que o comportamento atendido por sua interface seja mantido.
  • Desempenho: Evite executar operações pesadas dentro do evento `Resize`, pois isso pode deixar a aplicação lenta quando o usuário ajusta o tamanho da janela rapidamente.

Esse evento é particularmente útil quando se deseja criar interfaces responsivas que se adaptam a tamanhos de janela diferentes.

Unlock Your Potential

Excel

Basic - Advanced

Access

Access Basic - Advanced

Power BI

Power BI Basic - Advanced

Help us grow the project