Opción Ajustar Texto del Formato de celda
Rápido y conciso... ¿Cómo controlo la opción "Ajustar Texto" del menú 'Formato de celda -> Alineación' mediante Visual Basic de una celda de una hoja?... Gracias
1 Respuesta
Respuesta de dpizzio
1
Respuesta rápida y concisa:
Mete esto en un Sub
Sub Macro1()
Columns("B:B").EntireColumn.AutoFit
End Sub
Mete esto en un Sub
Sub Macro1()
Columns("B:B").EntireColumn.AutoFit
End Sub
Perdón, esto lo que hace es autoajustar el ancho de celda, para usar la función autoajustar texto debes usar esto:
Sub Macro2()
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
End Sub
Mis disculpas por la primer respuesta.
Sub Macro2()
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
End Sub
Mis disculpas por la primer respuesta.
