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

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