Hola, puedes hacerlo de esta forma.
Código Delphi
[-]
var
Excel: OleVariant;
begin
Excel := CreateOleObject('Excel.Application');
Excel.Workbooks.add.worksheets[1].shapes.addpicture('C:\Imagen.jpg', False, True, 1, 1, 100, 100);
Excel.visible := True
end;
Saluditos