Excel - centrar titulos

Hola estimado foro !!

espero me puedan ayudar de antemano les doy las gracias.

tengo el siguiente codigo, copia los registros que tengo en una tabla ( VISULA FOXPRO ) a una hoja de Excel todo trabaja correctamente, pero no puedo centrar los titulo que estan dentro del rango ( A:1 D:1 )


Close Tables All
Use Base
Hoja_Xls = Sys(5)+Curdir()+'Pagina'+".xls"
Copy Fields num_emp,nombre,direccion,telefono ;
To (Hoja_Xls) Type Xl5
oExcel = Createobject('Excel.Application')
With oExcel
.workbooks.Open(Hoja_Xls)
.ActiveWorkbook.ActiveSheet.UsedRange.Columns.Autofit
.Selection.EntireRow.Insert
.ActiveCell.FormulaR1C1 = "DELEGACION CUAUHTEMOC"
.Range("A2").Select
.Selection.EntireRow.Insert
.ActiveCell.FormulaR1C1 = "SUBDIRECCION DE RECURSOS HUMANOS"
.Range("A3").Select
.Selection.EntireRow.Insert
.ActiveCell.FormulaR1C1 = "U.D. DE MOVIMIENTOS DE PERSONAL"
.Range("A4").Select
.Selection.EntireRow.Insert
.ActiveCell.FormulaR1C1 = "REPORTE DE EMPLEADOS"
.ActiveWorkbook.Save
.Visible = .T.
Endwith

With oExcel
.Range("A1:D1").Select
Endwith

usá la grabadora de macros y va a salir...

Saludos desde Baires, JuanC

Hola JuanC graacias por tu tiempo.

ya lo habia intentado pero marca muchos errores

tendras otra idea ?

Gracias

quién marca muchos errores??

esto lo hice con la grabadora

Columns("A:D").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

Saludos desde Baires, JuanC

El Visual FoxPro es el que marcaba los errores...

Porque no intentas este codigo es Visual Basic Application

Range("A1:D1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With