procedure TForm1.Button2Click(Sender: TObject);
begin
ExcelApp.ActiveSheet.Pictures.Insert('D:\Documents and Settings\Administrator\My Documents\My Pictures\2004212231591.jpg').Select;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ExcelApp.ActiveSheet.Shapes.Item(ExcelApp.ActiveSheet.Shapes.Count).Select;
ExcelApp.Selection.Copy;
ExcelApp.Range['H22','H22'].Select;
ExcelApp.ActiveSheet.Paste;
end;