Как вставить фигуру в указанную ячейку, используя «для каждой фигуры в activesheet.shapes» в excel vba

Question

Я прошу намек со следующей проблемой. Как добавить к указанным ячейкам фигуры из активной таблицы? Я могу добавить форму, когда я знаю имя, но не знаю, как реализовать Forumla для каждой формы в ...

В настоящее время у меня есть что-то вроде этого:

Sub loop() 

Dim a As Integer 
Dim b As Integer 
Dim c As Integer 

For a = 1 To 10 
    For b = 1 To 10 

     ActiveSheet.Shapes.AddShape("Shape_Name", Cells(a, b), Cells(j, k), 10).Select 

    Next a 
Next b 
End Sub 

Но мне нужно что-то с помощью это:

For Each Shape In ActiveSheet.Shapes 

Answer 1

Я не уверен, что вам нужно, но попробовать это

Dim shp As Shape 

For Each shp In ActiveSheet.Shapes 
    Debug.Print shp.Name 
Next 

это только итерация по коллекция Shapes. Поэтому вам нужно иметь формы для доступа к ним => логические.

Если вы пытаетесь добавить фигуры, вы не можете использовать for each в .Shapes, так как коллекция .Shapes была бы пуста.

---

Поэтому, как только вы знаете формы вы можете назвать

Sheets("Sheet1").Shapes("Rectangle 1").Copy 
Sheets("Sheet2").Select 
Range("B2").Select 
Sheets(2).Paste