Negrilla en celda excel durante la creación de la hoja.
 

Hola a todos,

Mi aplicación den delphi 2005 crea una hoja excel que va rellenando según se va recorriendo un DataSet y me gustaría que alguien me explicara como puedo poner ciertas celdas (títulos y demás) en negrita.

Código Delphi [-]
var
  Excel: Variant;
  Hoja: OleVariant;
  Libro: OleVariant;
  Fil,Col: Integer;
begin
  Excel.WorkBooks.Add;
  Libro := Excel.WorkBooks.Add;
  Hoja := Libro.ActiveSheet;
......
  Fil := 1;
  Col := 1;
........
  Hoja.Cells[Fil,Col] := 'TITULO';
  // ¿Como indico que quiero esta celda en negrilla?
  Fil := Fil + 2;
.......

Gracias y saludos.

Espero te sirva este codigo:

Código Delphi [-]
ExcelWorkSheet1.Range['A1','E2'].Font.Bold := True; // Pones a negro tu rango, yo puse de A1 a E2 como ejemplo
ExcelWorkSheet1.Range['A1','A1'].ColumnWidth := 16; // Pones el ancho de tu columna, y si quieres tambien cambias width por height para el alto

ExcelWorkSheet1 Es un componente de la paleta servers. :cool:

Gracias por la respuesta pero creo que no me sirve (Intentaré darle un par de vueltas de todas formas). Me da el siguiente error:

Project XXXX.exe raised exception class EIntfCastError with message 'Interface not supported'

Saludos.

Solucionado,

Con un simple ......

Código Delphi [-]
Hoja.Cells[Fil,Col].Font.Bold := True;

.....ya me lo muestra correctamente, aunque el código no me lo reconoce Delphi, compila y funciona a la perfección.

Muchas gracias.