Saltar al contenido

Ajustar texto a celda


Recommended Posts

publicado

Hola buenas, soy un poco novato pero he estado buscando y no encuentro nada en la red. Lo que yo quiero es ajustar un texto a una celda (combinada). Ojo, no ajustar la celda al texto. Esto es porque ele tamaño de la celda combinada varía y quiero que el texto ocupe toda la celda. Os enseño hasta donde he llegado:

Dim rango as range

Dim variable as byte

Sheets("Sheets1").Range("B2").Value = "TEXTO"

Set rango = Range(Cells(2, 2), Cells(3, Variable + 3))

rango.Merge rango.HorizontalAlignment = xlCenter

rango.VerticalAlignment = xlCenter

rango.Interior.ColorIndex = 41

'AQUÍ QUIERO AJUSTAR EL TEXTO PARA QUE ME OCUPE TODO EL rango

 

Gracias de antemano.

Alfredo

publicado

Perdón que me conteste yo mismo, es que no me deja editar. He conseguido el objetivo) dándole a font.size un valor muy alto y luego autoshrink = true, pero eso no me vale para otra celda combinada que tengo girada:

 rango.Merge

rango.Orientation = 90

rango.HorizontalAlignment = xlCenter

rango.VerticalAlignment = xlCenter

rango.Font.Size = 200

rango.ShrinkToFit = True

Gracias de nuevo

  • Silvia bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.