怎样用Delphi来实现，在Excel中画一个Label1，Label1中如何填入字符??? (100分)

P

ptfjy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #1

用Delphi在Excel中画一个Label1的代码如下：
ExcelVar.ActiveSheet.Labels.Add(148.5, 171, 144, 27).Select ;
//ExcelVar.ActiveSheet.Shapes('Label 1').Select;
ExcelVar.Selection.Characters.Text := '奔腾电脑';
请问为什么第二句不能用????

 

R

realLearning

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #2

ExcelVar.ActiveSheet.Shapes.item(1).Select

 

P

ptfjy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-20

• #3

realLearning:你好
非常感谢你的帮助，
我以上的代码是从Excel的宏代码中复制过来的，
你的代码ActiveSheet.Shapes.item(1).Select是如何得到的？
为什么要将label1改为item呢？
谢谢，一定给分！

 

P

ptfjy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-21

• #4

接受答案了.