Insertar imagenes en excel

[tiagor64]

Hola foro:

Ya he visto que existen mas hilos sobre este tema, pero no he conseguido solucionarlo con lo que se decia en ellos, algo are mal
Estoy intentando insertar una imagen en un excel en blanco creado desde delphi
lo he intentado con .ActiveSheet.Pictures.Insert('imagen.bmp'); pero me da un error y no encuentra el Pictures me dice undelcared identifier

Agradeceria cualquier ayuda de tipo general para ver si encaminaba un poco el camino.

Muchas gracias de antemano

[[Vyckso]]

Buenas Tiagor64

Prueba con esto:

Código Delphi [-]
ActiveSheet.Pictures.Insert('imagen.bmp').select;

Salu2

[eligomfer]

Alguien me podria ayudar? Quiero insertar una imagen en un excel creado desde delphi. Gracias

[[cHackAll]]

Código Delphi [-]
uses ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
var excel: OleVariant;
begin
 excel := CreateOleObject('Excel.Application');
 excel.Workbooks.add.worksheets[1].shapes.addpicture('C:\Imágenes\ClubDelphi.jpg', False, True, 6, 6, 666, 666);
 excel.visible := True
end;

[eligomfer]

Muchas gracias por tu explicación cHackAll pero no consigo insertar la imagen. Te explico mejor. Ya tengo creado el libro de excel y demas, y quiero insertar una imagen en una casilla concreta pero con tu explicación la inserto en una página nueva. Me sale este error: Incompatible types: 'TOleEnum' and 'TQRImage'. Gracias por todo y siento el no saber

[[cHackAll]]

Código Delphi [-]
 excel.Workbooks[1].worksheets[1].shapes.addpicture('C:\Imágenes\ClubDelphi.jpg', False, True, 6, 6, 666, 666);

0j0: GetActiveOleObject

[eligomfer]

Buenos dias de nuevo. Sigo sin poder insertar la imagen. A ver, me creo el objeto excel: OleVariant;. Luego pongo:
excel := CreateOleObject('Excel.Application');
excel.teLibro[1].teHoja.shapes.addpicture('C:\Imágenes\ClubDelphi.jpg', False, True, 6, 6, 666, 666);
Pero nada de nada. Gracias

[eligomfer]

Al final tengo esto;
excel := CreateOleObject('Excel.Application');
excel := GetActiveOleObject('Excel.Application');
excel.Visible := True;
excel.teLibro[1].teHoja.Range['A1', 'A1'].shapes.addpicture('C:\Dibujo.bmp', False, True, 6, 6, 666, 666);
Pero nada, sale el error:
"MEthod teHoja not supported by automation object".

[[cHackAll]]

Pues no se de dónde te inventaste teLibro y teHoja... los nombres que se utiliza al trabajar con los métodos de un objeto OLE-COM son definidos por el desarrollador de dichos objetos (en éste caso Microsoft).

Si quieres acceder a una hoja diferente debes utilizar otros índices; por ejemplo: worksheets[6]; tambien es posible hacerlo de la siguiente forma:

Código Delphi [-]
 excel.workbooks('libro6.xls').worksheets('hoja6').activate;
 excel.activesheet.

Te muestro de nuevo un ejemplo con un documento de Excel que ya existe. Tambin te muestro la forma de uso de GetActiveOleObject;

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var excel: OleVariant;
begin
 try
  excel := GetActiveOleObject('Excel.Application');
 except
  try
   excel := CreateOleObject('Excel.Application');
  except
   ShowMessage('No se pudo crear el objeto de Excel');
   Exit;
  end;
 end;
 excel.Workbooks.Open('c:\librucho1.xls').worksheets[1].shapes.addpicture('C:\Imágenes\ClubDelphi.jpg', False, True, 0, 0, -1, -1);
 excel.visible := True
end;

Saludos

[eligomfer]

Ya se inserta la imagen. Muchas gracias chachall. El problema que tengo ahora es que si tengo abierto mas de un libro, siempre se inserta en el mismo. ¿A que se debe esto? Gracias de nuevo

[[cHackAll]]

Empezado por eligomfer

Ya se inserta la imagen. Muchas gracias chachall. El problema que tengo ahora es que si tengo abierto mas de un libro, siempre se inserta en el mismo. ¿A que se debe esto? Gracias de nuevo

Empezado por cHackAll

Si quieres acceder a una hoja diferente debes utilizar otros índices; por ejemplo: worksheets[6]; tambien es posible hacerlo de la siguiente forma:

Código Delphi [-]
excel.workbooks('libro6.xls').worksheets('hoja6').activate;
excel.activesheet.

Estas usando .worksheets[1].... debes cambiar de hoja a la que necesitas.

Saludos