請問各位，要如何抓取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

編輯記錄