如何抓取Excel中各種圖形的種類?? |
尚未結案
|
raiseofevil
一般會員 發表:13 回覆:1 積分:2 註冊:2006-12-09 發送簡訊給我 |
請問各位,要如何抓取Excel中圖形的類別,我以下面的程式碼去抓取Excel中的圖形,只能抓出矩形iType = 1 和 線條 iType = 9,其他種類的圖形抓不出來,有其他的方法可以解析出各種圖形的類別嗎?
如下圖,我只能抓取左邊圖形的矩形和線條種類,但是遇到右邊的種類,就完全讀不到了,有人知道如何處理嗎? [code delphi] procedure Do_GetChartType; var Path, Name: String; i, j, RowCount, iType: Integer; iExcel: Variant; asheet1, achart, range: variant; rc: TRect; begin FileName := 'D:\ExcelA.xls'; SheetNum := 1; if FileExists(FileName) then begin iExcel := CreateOleObject('Excel.Application');; iExcel.WorkBooks.Add(FileName); for i := 1 to SheetNum do begin asheet1:=iExcel.Workbooks[1].Worksheets[i]; RowCount := asheet1.Shapes.count; Add_Msg(IntToStr(RowCount)); for j := 1 to RowCount do begin achart := asheet1.Shapes.Item(j); Name := achart.Name; iType := achart.Type //<===== 這裡取出的Excel 圖型類別,只有矩形 和 線條而已,其他的分辨不出來 [/code]
附加檔案:4cb7c631cfc12_1.PNG
編輯記錄
raiseofevil 重新編輯於 2010-10-15 11:12:58, 註解 無‧
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |