Alinear en Excel desde Visual Basic

Hola, necesito alinear texto en excel desde visual basic. Mediante el siguiente código inserto el texto pero no se como hacer para ajustarlo al centro, izquierda o derecha.
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
' Hace que Excel se vea
ApExcel.Visible = True
'Agrega un nuevo Libro
ApExcel.Workbooks.Add
'Inserta el texto
ApExcel.Cells(3, 2).Formula = "hola"
Entonces la idea es alinear esta celda.
Desde ya muchas gracias.
Respuesta
1
ApExcel.Columns("A:A").HorizontalAlignment = xlLeft
apexcel.Columns("D:D").HorizontalAlignment = xlRight
Etc...

2 respuestas más de otros expertos

Respuesta
Eso son caracteristicas d ela celda de excel, si no puedes hacer algo como ApExcel.Cells(3, 2).Align = Center , es que el objeto no expone esa propiedad y no podrias hacerlo, entonces lo que te recomendaria es que crees una macro en al hoja de excel.
Respuesta
Te pongo un ejemplo que alinea celdas en una hoja excel, el ejemplo es de una version antigua (del 2005), pero no creo que haya cambiado mucho:
Private Sub Command1_Click()
Dim xl As New Excel.Application
Dim w As Worksheet
Set xl = CreateObject("Excel.Application")
xl.Application.Workbooks.Open App.Path & "\informe.xls"
xl.Visible = True
Set w = xl.Worksheets.item("Hoja1")
w.Activate
w.Range("A1", "B2").HorizontalAlignment = xlHAlignLeft
w.Range("C1", "D2").HorizontalAlignment = xlHAlignCenter
w.Range("E1", "F2").HorizontalAlignment = xlHAlignRight
xl.ActiveWorkbook.Save
xl.Workbooks.Close
xl.Application.Quit
Set xl = Nothing
Set w = Nothing
End Sub
No olvides valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas