2 respuestas en este tema

[TiammatMX]

Buceando desesperadamente en busca de respuestas, resulta que encontré un post de KingI sobre la automatización de Excel, o "automation" (¡¡Qué fea palabra, verdaderamente!!), el cual resolvió el 90% de mi problema..., el 10% que falta es el que me preocupa.

A saber, algunas preguntas fundamentales:

• Necesito incluir algunas imágenes en el archivo resultante.
• El código EXACTO para crear un archivo con nombre y ruta. El que proporcionó KingI no funciona como debería.
• ¿Cómo puedo hacer girar un texto en una celda?
• ¿Cómo puedo incluir una fórmula en una celda? Específicamente, una Suma() de un rango.

Muchas gracias por su colaboración, como siempre, salvando el cuello de uno que otro programador Delphi.

[andres1569]

Hola Felipe, espero acertar con la pregunta nº 2, aunque no he trabajado con los componentes de automatización del Office, sí lo he hecho mediante objetos OLE Variant, que es una forma más rudimentaria, digamos.
Para guardar un archivo empleaba el comando SaveAs(FileName), supongo que con estos componentes sería algo así como:

ExcelApplication1.SaveAs('C:\Mis archivos\Excel1.xls');

Un saludo

[enecumene]

Para la duda número 1:

delphi

procedure InsertarIMGExcel(ActiveSheet: OleVariant; RutaImagen: string: Altura, Tope: Integer); 
var
  Picture: OleVariant;
begin
  Picture := ActiveSheet.Pictures.Insert(RutaImagen);
  Picture.Width := Altura * Picture.Width / Picture.Height;
  Picture.Height := Altura;
  Picture.ShapeRange.Left := 0;
  Picture.ShapeRange.Top := Tope;
  Picture.Placement := xlMove;
end;

Duda 4, simplemente haces lo siguiente:

delphi

Sheet.Cells[i, 1] := '=Sum(A1:A10)';

Saludos.