alto de fila en excel

[armando]

saludos.. :) tengo que exportar a excel. de una aplicacion en delphi 7 y firebird
tengo este codigo

procedure HojasExcelF(ArchivoF: String; var nombreHojaF:String); /////////FOTOS
var
Excel: OleVariant;
Libro: OleVariant;
I: Integer;

begin

Excel := CreateOleObject('Excel.Application');
Libro := Excel.WorkBooks.Open(ArchivoF);
nombreHojaF:= Libro.Worksheets.Item[1].Name; //Hoja 1 del archivo excel
Excel.Visible := True;
// EXCEL.RowHidth:= 90;
//excel.ROW[14].ROWWidth :=90;
// aqui le ponemos nombre a los campos
Libro := Excel.WorkBooks[1].WorkSheets['INVENTARIO'];
Libro.Cells [5,5] := 'FECHA DE CONTROL'+' '+DATETOSTR(NOW);
Libro.Cells [7,5] := 'SUCURSAL'+' ' +DM.QINVSUCURSAL.AsString;

tabla.First;
i:=14;

while not tabla.EOF do
begin
i:=i+1;
Libro.Cells [i,1] := tabla.FieldByName ('ACTIVO').AsString;
Libro.Cells [i,2] := tabla.fieldByName ('CANTIDAD').AsString;
Libro.Cells [i,3] := tabla.FieldByName ('DESCRIPCION').AsString;
Libro.Cells [i,4] := tabla.FieldByName ('MARCA').AsString;
Libro.Cells [i,5] := tabla.FieldByName ('COLOR').AsString;
Libro.Cells [i,6] := 'X';
Libro.Cells [i,10] := tabla.FieldByName ('SERIE').AsString;
Libro.Cells [i,11] := tabla.FieldByName ('OBSERVACIONES').AsString;

tabla.Next;
end;


end;

necesito....
- como voy a insertar una foto.. necesito ampliar el alto de la fila en cada registro que se inserte en excel..
- como justificar el texto
- como insertar una foto en cada registro

gracias como siempre espero sus comentarios.... :o

[defcon1_es]

Hola. Aquí van algunas sugerencias:


- como voy a insertar una foto.. necesito ampliar el alto de la fila en cada registro que se inserte en excel..

Para ajustar automaticamente el tamaño de las celdas, puedes probar con la propiedad Libro.Columns.AutoFit;


- como justificar el texto

Mira esta página (http://www.djpate.freeserve.co.uk/AutoExcl.htm#EnterData) (es algo antigua) por si te sirve algo de lo que indica Deborah.


- como insertar una foto en cada registro

Si las imágenes las tienes cargadas en campos BLOB, prueba con
Libro.Cells [i,1] := tabla.FieldByName ('IMAGEN').Value;