如何在EXCEL单元格中添加新的图案？(50分)

如何在EXCEL单元格中的图案中添加自定义新的图案？

这个你看看有没有用，向EXCEL中输入图片的
uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
Var FExcel :OleVariant; //excel应用程序
FWorkBook :OleVariant; //工作表
FWorksheet:OleVariant; //工作薄
FPicture:OleVariant;
TmpStr:String;
begin
FExcel:= CreateoleObject('excel.Application');
FWorkBook:=FExcel.WorkBooks.Add; //新的工作表
FWorksheet:=FWorkBook.Worksheets[1];
FWorksheet.Select;

//插入图象并设置位置与大小
tmpstr:='f:/1.jpg';
FPicture:=FWorksheet.Pictures.Insert(tmpstr);
FPicture.Left:=10;
FPicture.Top:=10;
FPicture.width:=200;
FPicture.height:=200;
FPicture:=null;
FExcel.visible:=true;
end;

那多复杂，难倒没有更好的方法吗？

procedure TForm1.Button1Click(Sender: TObject);
var
aWorkBook : _Workbook;
aSheet : Variant;
begin
if OpenPictureDialog1.Execute then
begin
ExcelApplication1.Connect;
aWorkBook := ExcelApplication1.Workbooks.Add(EmptyParam, 0);
aSheet := aWorkBook.Sheets[1];
aSheet.Range['f1'].Select;//这里是定位图片插入的位置
asheet.Pictures.Insert(OpenPictureDialog1.FileName);
ExcelApplication1.Visible[0] := True;
ExcelApplication1.Disconnect;
end;
end;