如何調整Excel中的圖片 |
缺席
|
mnsf
初階會員 發表:104 回覆:90 積分:48 註冊:2003-11-25 發送簡訊給我 |
現在要用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] 編輯記錄
mnsf 重新編輯於 2007-10-18 17:22:04, 註解 無‧
|
mnsf
初階會員 發表:104 回覆:90 積分:48 註冊:2003-11-25 發送簡訊給我 |
|
jackiemi2_seed
中階會員 發表:37 回覆:97 積分:76 註冊:2006-09-11 發送簡訊給我 |
你的語法我試不出來,我是用下面的語法
[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 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |