从 Delphi 修改 Excel 形状

Question

如何从 Delphi 修改 现有 excel 形状的文本？

我可以创建一个新形状并设置它的文本

procedure TForm1.Button1Click(Sender: TObject);
var
 excel, xlShape : variant;
begin
 olecontainer1.CreateObject('Excel.Application',false);
 excel := olecontainer1.OleObject;
 excel.workbooks.open('C:\test.xls');

 XlShape := excel.application.worksheets[1].Shapes.AddShape(1, 0, 0, 450, 200); 
 XlShape.textframe.characters.text:='new shape created from Delphi';

但是如果形状已经存在，我该如何选择它来改变它的文本属性呢？比如：

excel.application.worksheets[1].Shapes('shape1').textframe.characters.text := 'This gives error';

Answer 1

试试这个代码

procedure TForm1.ButtonClick(Sender: TObject);
var
 excel, xlShape : variant;
begin
 olecontainer1.CreateObject('Excel.Application',false);
 excel := olecontainer1.OleObject;
 excel.workbooks.open('C:\test.xls');
 XlShape:=excel.ActiveSheet.Shapes.Item(1);// or like this .Item('Rectangle 1');
 if VarIsEmpty(xlShape) then
 begin
 XlShape := excel.application.worksheets[1].Shapes.AddShape(1, 0, 0, 450, 200);
 XlShape.textframe.characters.text:='new shape created from Delphi';
 end
 else
 ShowMessage(XlShape.textframe.characters.text);
 excel.activeworkbook.close;
 xlShape:=Unassigned;
 excel:=Unassigned;
 OleContainer1.DestroyObject;
end;

Answer 2

XlShape := excel.application.worksheets[1].Shapes.AddShape(1, 0, 0, 450, 200); 
XlShape.Name := "mycustomshape";

所以，当你知道形状的名字时，你可以用名字来引用它

excel.application.worksheets[1].Shapes('mycustomshape').textframe.characters.text := 'This doesnt gives error';

或者，您可以使用索引（基于 0）来引用它。我假设它是工作表中的第一个形状对象。

excel.application.worksheets[1].Shapes(0).textframe.characters.text := 'This doesnt gives error';

编辑：我不确定 Delphi 在语法方面有何不同。
看看使用 方括号（而不是普通括号）是否有效

excel.application.worksheets[1].Shapes['mycustomshape'].textframe.characters.text := 'This doesnt gives error';

或

excel.application.worksheets[1].Shapes[0].textframe.characters.text := 'This doesnt gives error';