Mi problema es como poner en dos celdas un titulo. En Excel se hace combinando celdas, do a mas. Desde Visual, que comando debo ejecutar. Gracias de antemano
Debe ser algo como lo siguiente: Range("A1:B1").Select With .Range .HorizontalAlignment = 1 .VerticalAlignment = 2 .WrapText = .T. .Orientation = 0 .AddIndent = .F. .ShrinkToFit = .F. .MergeCells = .T. EndWith
Muchas Gracias, me resolvio el problema. No se si sera mucha molestia, pero me ayudaria mucho el saber donde encuentro estos comandos, por ejem. HorizontalAlignment = 1 .VerticalAlignment = 2 .WrapText = .T. .Orientation = 0 .AddIndent = .F. .ShrinkToFit = .F. .MergeCells = .T. Y sobre todo que hacen. Por ejem. con HorizontalAlignment = 3, pude centrarlo. Ademas funciono asi : loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").Select loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").HorizontalAlignment = 3 loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").VerticalAlignment = 2 loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").WrapText = .T. loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").Orientation = 0 loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").ShrinkToFit = .F. loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").MergeCells = .T. loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").VALUE = Wfech1 loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").FONT.NAME = "Times New Roman" loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").FONT.SIZE = 12 loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").FONT.Bold = .T. loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").FONT.Italic = .T. loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").Interior.Color = RGB(255,128,0) loExcel.APPLICATION.activeworkbook.activesheet.Range("H4:I4").FONT.ColorIndex=5 Gracias de antemano. Saludos Wilbur