Ejemplo de propiedades InsideHeight y InsideWidth

En el ejemplo siguiente se usan las propiedades InsideHeight e InsideWidth para cambiar el tamaño de un control CommandButton. El usuario hace clic en el CommandButton para cambiarlo de tamaño.

Nota:

[!NOTA] InsideHeight y InsideWidth son propiedades de solo lectura.

Para usar este ejemplo, copie este código de muestra en la parte Declaraciones de un formulario. Asegúrese de que el formulario contiene:

• Un control CommandButton denominado CommandButton1.

Dim Resize As Single 
 
Private Sub UserForm_Initialize() 
 Resize = 0.75 
 CommandButton1.Caption = "Resize Button" 
 
End Sub 
 
Private Sub CommandButton1_Click() 
 CommandButton1.Move 10, 10, _ 
 UserForm1.InsideWidth * Resize, _ 
 UserForm1.InsideHeight * Resize 
 CommandButton1.Caption = "Button resized " _ 
 & "using InsideHeight and InsideWidth!" 
End Sub

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.