Saltar al contenido

Ajustar texto a celda

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

Featured Replies

publicado
  • Autor

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.