遍历工作表中的图形

技巧1

遍历工作表中的图形

工作表中的多个图形，如果使用系统缺省名称，如“文本框1”、“文本框2”这样前面是固定的字符串，后面是序号的，可以使用For...Next 语句遍历图形，如下面的代码所示。

Sub ErgShapes _1()

Dim i As Integer

For i=1To 4

Sheet1.Sh apes("文本框"& i).TextFr ame.Chara cters.Tex t = "" Next

End Sub 代码解析：

ErgShape

s_1过程清

除工作表

中四个图

形文本框

中的文字

。

第3行到第

5行代码，

使用

Shapes属

性在工作

表上的三

个图形文

本框中循

环。

Shapes属

性返回

Shapes对

象，代表

工作表或

图形工作

表上的所

有图形，

可以使用

Shapes

（index）

返回单个

的Shape

对象，其

中index是

图形的名

称或索引

号。

返回单个的Shape对象后使用TextFrame 属性和Characters方法清除文本框中的字符，关于Shape对象的TextFrame 属性和

对象的TextFrame 属性和Characters方法请参阅技巧53 。