Compartir a través de

Cambiar tamaño del evento

  • Artículo

Ocurre cuando se cambia el tamaño de un formulario de usuario.

Sintaxis

Private Sub UserForm_Resize( )

Comentarios

Use un procedimiento de evento Resize para mover o cambiar el tamaño de los controles cuando se cambia el tamaño del elemento primario UserForm. También puede usar este procedimiento de evento para volver a calcular variables o propiedades.

Ejemplo

En el ejemplo siguiente se usan los eventos Activate y Click para ilustrar el desencadenamiento del evento UserFormResize . A medida que el usuario hace clic en el área de cliente del formulario, crece o se reduce y se especifica el nuevo alto en la barra de título. Tenga en cuenta que la propiedad Tag se usa para almacenar el alto inicial de UserForm.

' 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

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.