VBA Establecer ancho de columna o alto de fila

Este tutorial demostrará cómo establecer la altura de las filas y el ancho de las columnas utilizando VBA.

La altura de las filas y el ancho de las columnas de Excel se pueden cambiar en VBA estableciendo las propiedades .RowHeight y .ColumnWidth

Establecer el ancho de columna con VBA

Macro para establecer el ancho de columna de las Columnas A a E:

Sub AnchoDeColumna()
    Columns("A:E").ColumnWidth = 30
End Sub

Establecer el alto de fila con VBA

Macro para establecer la altura de la fila 1:

Sub AltoDeFila()
    Rows("1:1").RowHeight = 30
End Sub

Autoajuste del ancho de columna

Excel ofrece la posibilidad de «Autoajustar» el ancho de las columnas. Esta característica ajusta el ancho de la columna para que la(s) columna(s) sea(n) lo suficientemente ancha(s) como para que quepa todo el texto que se encuentra en esa columna.

 

Para autoajustar los anchos de columna en VBA:

Columns("A:B").Autofit

Escribimos más sobre esto en otro artículo sobre cómo Autoajustar una Columna desde VBA, incluyendo cómo Autoajustar todas las columnas utilizadas.

Autoajuste del alto de fila

También puede autoajustar las alturas de las filas utilizando un método similar:

Rows("1:2").Autofit

Ajustar el ancho de las celdas

También puede ajustar el ancho de las columnas haciendo referencia a una celda:

Range("a1").EntireColumn.ColumnWidth = 20

Ajustar la altura de la celda

O ajustar la altura de las filas haciendo referencia a una celda:

Range("a1").EntireRow.RowHeight = 10

Obtener el ancho de la columna

Para obtener el ancho de columna de una columna

Dim anchoColumna As Long
anchoColumna = Columns("a").ColumnWidth

Nota: Esto devolverá Null si todas las columnas del rango no tienen el mismo ancho.

Obtener el alto de la fila

Del mismo modo, se puede obtener el alto de la fila:

Dim altoDeFila As Long
altoDeFila = rows("1").RowHeight

<<Volver a los ejemplos de VBA