exportar imágenes a excel

[armando]

saludos... bueno no se si mi tema va a qui .. si no lo mueven.. gracias y disculpas...
tengo delphi 7 y firebird
tengo que exportar un catalago a excel de activos fijos que incluyen foto(la foto se guarda a través de una ruta)
ya exporto los datos.. pero como le hago para exportar las fotos...?
anexo las fotos de la plantilla

[[newtron]]

Hola.

Echale un vistazo a esto o a esto, espero que te sirva de ayuda.

Saludos

[[nlsgarcia]]

armando,

...tengo que exportar un catalago a excel de activos fijos que incluyen foto...como le hago para exportar las fotos...

Revisa este código:

Código Delphi [-]
implementation

Uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
const
   XlFileFormat =  51; // xlWorkbookDefault;

var
   Excel, WrkS : Variant;
   FileExcel : String;
   FileImage : String;

begin

   FileExcel := ExtractFilePath(Application.ExeName) + 'TestImage.xlsx';
   FileImage := ExtractFilePath(Application.ExeName) + 'Image-1.jpg';

   try

      Excel := CreateOleObject('Excel.Application');

      Excel.DisplayAlerts := False;
      Excel.Visible := False;

      Excel.Workbooks.Open(FileExcel);

      WrkS := Excel.Worksheets[1];

      // Insertar una Imagen con Addpicture
      WrkS.Shapes.Addpicture(FileImage, False, True, 70, 10, 100, 100);

      // Insertar una Imagen con Insert
      WrkS.Pictures.Insert(FileImage);

      // Insertar Datos (Fila, Columna)
      WrkS.Cells[1, 1].Value := 'Dato-1';
      WrkS.Cells[2, 1].Value := 'Dato-2';
      WrkS.Cells[3, 1].Value := 'Dato-3';

      WrkS.SaveAs(FileExcel,XlFileFormat);

   finally

      Excel.Quit;
      Excel := Unassigned;
      WrkS := Unassigned;

   end;

end;

El código anterior permite insertar datos e imágenes en una hoja de cálculo por medio de Automatización en Excel. El código fue probado en Delphi 7 con Excel 2010.

Revisa estos links:

Shapes.AddPicture Method : http://msdn.microsoft.com/en-us/libr...ice.12%29.aspx

Pictures.Insert Method : http://msdn.microsoft.com/en-us/libr...ice.11%29.aspx

Espero sea útil

Nelson.

[epm]

Hola. a pesar de ser un poco antiguo el hilo, como estuve buscando este tema. He probado desde Excel 2016 con Windows 10 y veo que funciona correctamente.
Gracias por el aporte