遍历工作表中的图形2

Each...Ne xt语句循环遍历所有图形，根据Type 属性返回的图形类型进行相应的操作，如下面的代码所示。

Sub ErgShapes _2()

Dim myShape As Shape

Dim i As Integer

i= 1

For Each myShape

In

Sheet1.Sh apes

If myShape.T ype= msoTextBo x Then myShape.T extFrame. Character s.Text= "这是第"& i&"个文本框"

i = i + 1 End If

Next

End Sub 代码解析：

s_2过程在工作表中的所有图形文本框中写入文本。

第5行代码使用For Each...Ne xt语句循环遍历工作表中所有的图形对象。

第6行到第9行代码如果图形对象是文本框则在文本框中写入文本。其中第6行代码根据Type属性判断图形对象是否为文本框，应用于Shape 对象的Type属性返回或设置图形类型，MsoShape Type类型，请参阅表格54?1 。

第7行代码根据返回的Type属性值在所有的文本框内写入相应的文本，如图56?1所示。

图 56?1遍历所有的文本框