Jak wstawić obrazek do Excela?

Jak w temacie

<font color="red">//co jak w temacie?? temat nie zwalnia z pisania treści!! opisz jasno swój problem! - M</span>

He, szukałem i znalazłem. Może się komuś przyda

//ten przykład sprawdziłem - działa po małych przeróbkach
var
  Pic: Excel2000.Picture;
  ...
  ASheet.Range['B12', EmptyParam].Formula := ExpandFileName('1.gif');
  ASheet.Range['A12', EmptyParam].Select;
  Pic := (ASheet.Pictures as Pictures).Insert(ASheet.Range['B12', EmptyParam].Value, EmptyParam);
  Pic.Name := 'Pic_2';


procedure ExportToExcel;
var
   v:variant;
begin
   try
      v := CreateOleObject('Excel.Application');
      v.Workbooks.Open[apl_path+xreport+'rpx_dog.xls'];
      v.Range['a1'].select;
      v.ActiveSheet.Pictures.Insert('C:\11b.jpg').Select;
      v.visible:=true;
   except
      on exception do  Showmessage('Error');
   end;
end;