Compartir a través de


Método Line.SizeToFit (Access)

Use el método SizeToFit para ajustar el tamaño de un control de modo que se ajuste al texto o a la imagen que contiene.

Sintaxis

expresión. SizeToFit

Expresión Variable que representa un objeto Line .

Comentarios

Por ejemplo, puede aplicar el método SizeToFit a un botón de comando que es demasiado pequeño para mostrar todo el texto en su propiedad Caption.

Se puede aplicar el método SizeToFit a controles en la vista Diseño del formulario o la vista Diseño del informe.

El método SizeToFit hace que un control sea mayor o menor, dependiendo del tamaño del texto o la imagen que contenga.

Use el método SizeToFit junto con el método CreateControl para ajustar el tamaño de los nuevos controles que ha creado en el código.

Nota:

[!NOTA] No todos los controles que contienen texto o una imagen pueden cambiar de tamaño con el método SizeToFit. Varios controles se enlazan a los datos que pueden variar en tamaño de un registro a la siguiente. Estos controles incluyen el cuadro de texto, cuadro de lista, cuadro combinado y controles de marco de objeto dependiente. El método SizeToFit no aplica a las páginas de acceso a los controles de datos.

Ejemplo:

En el ejemplo siguiente se crea un nuevo formulario y un botón de comando en el formulario. El procedimiento, a continuación, establece la propiedad Caption del control y cambia el tamaño del control para ajustar el título.

Sub SizeNewControl() 
 Dim frm As Form, ctl As Control 
 
 ' Create new form. 
 Set frm = CreateForm 
 ' Create new command button. 
 Set ctl = CreateControl(frm.Name, _ 
 acCommandButton, , , , 500, 500) 
 ' Restore form. 
 DoCmd.Restore 
 ' Set control's Caption property. 
 ctl.Caption = "Extremely Long Control Caption" 
 ' Size control to fit caption. 
 ctl.SizeToFit 
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.