Es gäbe eine Möglichkeit sich da heran zu tasten:
Delphi-Quellcode:
excel.visible:=true; { visible nur für test-zwecke }
excel.workbooks.Open(Filename:='c:\TEMP\MAPPE1.xls');
excel.activeworkbook.sheets[1].activate; { 1. Worksheet}
showmessage('Shapes:'+inttostr(Excel.activesheet.Shapes.count));
Excel.activeSheet.Shapes.selectall;
for i:=1 to excel.ActiveSheet.Shapes.count do begin
showmessage('Name ist:'+excel.ActiveSheet.Shapes.Range[i].Name);
showmessage('Left:'+inttostr(excel.ActiveSheet.Shapes.Range[i].left)+#13#10+
floattostr(excel.ActiveSheet.Columns[1].Width)+#13#10+
floattostr(excel.ActiveSheet.Columns[2].Width));
end;
Ist zwar Umständlich aber mit den werten von Height kann man sich dann heran tasten.
Gruß
K-H
( Mein Beispiel Textfeld befindet sich in C6. [Left=122, width=60])