Exportar TImage a Excel

[lduron]

Buen día a todos!

Solicito su ayuda para resolver los siguiente:

Tengo una aplicación con:

ExcelApplication1
ExcelWorkbook1
ExcelWorksheet1

Tengo una imagen (c:\prueba.bmp) la cargo en un componente TImage, no la quiero tener fisicamente en disco ya que haya generado el .exe. Como puedo exportar el TImage a excel?

Gracias como siempre por su gran ayuda.

Saludos!

[[ElDioni]]

Buscando por los foros del club en el apartado de gráficos por la palabra exportar me encuentro con el siguiente hilo:

http://www.clubdelphi.com/foros/show...light=exportar

Creo que te puede ayudar, echale un vistazo.

Un saludo.

[*Caro*]

Hola lduron, si estas utilizando los componentes de la paleta Server, varia un poquito al hilo que indica ElDioni:

Código Delphi [-]
  ExcelWorksheet1.Shapes.AddPicture('c:\prueba.bmp', 0, 1, 20, 20, 100, 100);

Saluditos

[lduron]

Hola Caro!

Primero que nada...gracias por contestar.

Lo que me indicas
ExcelWorksheet1.Shapes.AddPicture('c:\prueba.bmp', 0, 1, 20, 20, 100, 100);

Ya lo intente y funciona perfectamente.

Pero si yo no quiero tener fisicamente el archivo prueba.bmp y este lo cargo en un Timage (image1.picture) para no tener que llevarme el .bmp junto con mi aplicacion .exe, como lo puedo exportar (image1.picture) a excel?

Gracias por la atención!

[*Caro*]

Empezado por lduron

Pero si yo no quiero tener fisicamente el archivo prueba.bmp y este lo cargo en un Timage (image1.picture) para no tener que llevarme el .bmp junto con mi aplicacion .exe, como lo puedo exportar (image1.picture) a excel?

Hola de nuevo Luis, entonces lo que puedes hacer es grabar lo que tengas en el TImage, lo exportas y eliminas el archivo fisicamente.

Código Delphi [-]
 ..................................................
 Image1.Picture.SaveToFile('imagen.bmp');
 Path := ExtractFilePath(Application.ExeName)+'\imagen.bmp';
 
 ExcelWorksheet1.Shapes.AddPicture(Path, 0, 1, 20, 20, 100, 100);
 
 DeleteFile('imagen.bmp');
 ..................................................

Saluditos

[lduron]

Mil Gracias a todos los que me apoyaron con este tema.

Saludos!