Ajustar el texto de una celda a la medida del TexBox;….
Hola amigos expertos... Tengo una pregunta, Cuál es la propiedad del TextBox para que al consultar la base de datos me describa el texto inscrito en la, celda no en una línea, sino en tres renglones, tal como está justificado en su celda. El texto mide no más de 50 caracteres y el Textbox es para que quepa en esos dos y hasta tres reglones o lineas. Muchas gracias por su atención.
1 respuesta
Para que realmente queden iguales, deberás ajustar varias propiedades del textbox.
Aquí un ejemplo de cómo se visualiza la celda y el textbox con las propiedades ajustadas:
Si alcanzas a apreciar el texto en la celda a la izquierda, a la derecha, arriba y abajo llega hasta el limite de la celda; en cambio, en el textbox hay una ligera separación en todas las direcciones, como un pequeño margen. Para ajustar el textbox incluyendo ese margen agregue un 10 a la propiedad.
Estas son las propiedades que debes ajustar que son:
1. Debe estar en verdadero Multiline, para que el textbox tenga varias líneas.
2. El ancho +10 y alto + 10, el + 10 ya lo comenté.
3. El mismo tipo de font que la celda
4. El mismo tamaño de letra que la celda.
Cambia D2 por la celda que necesitas y texbox1 por el nombre de tu textbox
Private Sub UserForm_Activate() 'Por.Dante Amor celda = "D2" With TextBox1 .MultiLine = True .Width = Range(celda).Width + 10 .Height = Range(celda).Height + 10 .Font.Name = Range(celda).Font.Name .Font.Size = Range(celda).Font.Size .Value = Range(celda) End With End Sub
Saludos.Dante Amor
No olvides valorar la respuesta.
