現在要用Delphi寫一個程式，在cell(2,3)插入一張圖片，並且調整這張圖片的大小(假設原圖片的大小很大)，
調整圖片大小的部分，Delphi要怎麼寫呢?


[code delphi]
請在此區域輸入程式碼
var FMsExcel,FWorkBook1,FWorkSheet1:variant;
begin
try
FMsExcel := CreateOleObject('excel.application');
except
exit;
end;
FWorkBook1:= FMsExcel.WorkBooks.Add;
FWorksheet1:= FWorkBook1.WorkSheets[1];
FWorksheet1.cells[2,3].select;
FWorksheet1.Pictures.Insert('c:\1.png');
FMSExcel.Application.visible := True;
end;

[/code]

編輯記錄

已自行找到方法了
FMsExcel.selection.width:=200;
FMsExcel.selection.height:=100;

你的語法我試不出來,我是用下面的語法
[1] 表示是第一個insert 的圖
FWorksheet1.Pictures[1].ShapeRange.height:=200;
FWorksheet1.Pictures[1].ShapeRange.width:=200;

===================引 用 mnsf 文 章===================
已自行找到方法了
FMsExcel.selection.width:=200;
FMsExcel.selection.height:=100;

------
OS : Win 7 pro
Program : Delphi 7
DataBase : Ms Sql 2008