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
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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