计数形状

Question

我在这里要做的是给工作表中的所有形状一个数字。 每个形状的数字必须加1，因此它应该看起来像这样。

请记住，这些形状是动态的（并不总是2列，3行）

这是我试过的代码，但似乎并没有工作

Sub Nummer() 

Dim lngShapes As Long 
lngShapes = ActiveSheet.Shapes.Count 

For teller = 1 To lngShapes 
ActiveSheet.Shapes(teller).Value = teller 
Next 

End Sub 

Answer 1

当试图设置形状内的值（文本）时，您会得到Error 438，因为形状集合没有要设置的Value属性。您需要使用.TextFrame.Characters.Text

如果更改线路

ActiveSheet.Shapes(teller).Value = teller 

到

ActiveSheet.Shapes(teller).TextFrame.Characters.Text = teller 

您的代码将工作。

Answer 2

看起来这个问题实际上是“循环遍历纸张中的所有形状”。像下面应该使用：

Sub nameTheShapes() 
    Dim shp As Shape 
    For Each shp In Sheet1.Shapes 
     shp.TextFrame2.TextRange.Characters.Text = shp.ID 
    Next 
End Sub 

这里我们声明shape变量名shp。然后我们遍历sheet1中的所有shapes。然后我们将形状id写入形状的textframe2。

如果你有一些图表挂在同一个页面上，那么你可能不想包括他们，这样你就可以测试shp.type属性一看就知道这不是一个图表：

Sub nameTheShapes() 
    Dim shp As Shape 
    For Each shp In Sheet1.Shapes 
     If shp.type = 1 Then 
      shp.TextFrame2.TextRange.Characters.Text = shp.ID 
     End If 
    Next 
End Sub