alto de fila en excel
 

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

Código Delphi [-]
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

Hola. Aquí van algunas sugerencias:

Para ajustar automaticamente el tamaño de las celdas, puedes probar con la propiedad

Código Delphi [-]
Libro.Columns.AutoFit;

Mira esta página (es algo antigua) por si te sirve algo de lo que indica Deborah.

Si las imágenes las tienes cargadas en campos BLOB, prueba con

Código Delphi [-]
Libro.Cells [i,1] := tabla.FieldByName ('IMAGEN').Value;