Insertar imagenes en excel

[[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".