Compartilhar via

Redimensionar evento

  • Artigo

Ocorre quando um formulário de utilizador é redimensionado.

Sintaxe

Private Sub UserForm_Resize( )

Comentários

Utilize um procedimentode evento Redimensionar para mover ou redimensionar controlos quando o UserForm principal for redimensionado. Também pode utilizar este procedimento de evento para recalcular variáveis ou propriedades.

Exemplo

O exemplo seguinte utiliza os eventos Ativar e Clicar para ilustrar o acionamento do evento UserFormResize . À medida que o utilizador clica na área de cliente do formulário, aumenta ou diminui e a nova altura é especificada na barra de título. Tenha em atenção que a propriedade Etiqueta é utilizada para armazenar a altura inicial do Formulário de Utilizador.

' Activate event for UserForm1
Private Sub UserForm_Activate()
    UserForm1.Caption = "Click me to make me taller!"
    Tag = Height    ' Save the initial height.
End Sub

' Click event for UserForm1
Private Sub UserForm_Click()
    Dim NewHeight As Single
    NewHeight = Height
    ' If the form is small, make it tall.
    If NewHeight = Val(Tag) Then
        Height = Val(Tag) * 2
    Else
    ' If the form is tall, make it small.
        Height = Val(Tag)
    End If
End Sub

' Resize event for UserForm1
Private Sub UserForm_Resize()
    UserForm1.Caption = "New Height: " & Height & "  " & "Click to resize me!"
End Sub

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.