如何从Delphi中修改现有 excel形状的文本?从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';
但是,如果形状已经存在,我怎么能选择它来改变其text属性?喜欢的东西:
excel.application.worksheets[1].Shapes('shape1').textframe.characters.text := 'This gives error';
通常情况下,最简单的方法找出如何做事OLE自动化是在Excel中记录宏,然后查看它生成的代码。将其转换为Delphi语法非常简单。 – 2009-08-05 03:43:04