Подсчет фигур

Question

То, что я пытаюсь сделать здесь, - это указать все фигуры на листе числа. Число должно подсчитываться по одному для каждой формы. Так что это должно выглядеть примерно так.

Имейте в виду, что эти формы являются динамическими (это не всегда 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. Затем мы перебираем все shapes в sheet1. Затем напишем форму 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