Formato Excel
Publicado por Guillermo (20 intervenciones) el 11/02/2008 21:13:53
Hola amigos del foro,
Estoy dando formato a un archivo de excel, he logrado colocar el ancho a las celdas, el color backgorund, centrado de lineas, pero lo que no puedo hacer ajustar una columna de tal forma que si el texto sobrepasa el ancho de una celda, el texto restante baje automaticamente hacia abajo. Estoy usando los soguientes codigo:
xlsub.Range("A1:AJ1").Interior.Color = RGB(255,0,0)
xlsub.Range("A1:Aj1").Font.Bold = true
xlsub.Range("A1:AJ1").Font.Size =8
xlsub.Range("A2:Z500").Font.Size =8
xlsub.Range("A1:Z500").Font.Name = "Tahoma"
xlsub.cells[ll_r,ll_c_aux].ColumnWidth = li_ancho
xlsub.cells[ll_r,ll_c_aux].HorizontalAlignment =2
xlsub.cells[ll_r,ll_c_aux].Merge //combinar celdas
Me falta el comando para ajustar celdas.
Espero alguien me la pueda proporcionar,
Gracias anticipadas,
Guillermo
Estoy dando formato a un archivo de excel, he logrado colocar el ancho a las celdas, el color backgorund, centrado de lineas, pero lo que no puedo hacer ajustar una columna de tal forma que si el texto sobrepasa el ancho de una celda, el texto restante baje automaticamente hacia abajo. Estoy usando los soguientes codigo:
xlsub.Range("A1:AJ1").Interior.Color = RGB(255,0,0)
xlsub.Range("A1:Aj1").Font.Bold = true
xlsub.Range("A1:AJ1").Font.Size =8
xlsub.Range("A2:Z500").Font.Size =8
xlsub.Range("A1:Z500").Font.Name = "Tahoma"
xlsub.cells[ll_r,ll_c_aux].ColumnWidth = li_ancho
xlsub.cells[ll_r,ll_c_aux].HorizontalAlignment =2
xlsub.cells[ll_r,ll_c_aux].Merge //combinar celdas
Me falta el comando para ajustar celdas.
Espero alguien me la pueda proporcionar,
Gracias anticipadas,
Guillermo
Valora esta pregunta
0