excel - 如何在excel vba中使用 "for each shape in activesheet.shapes"将形状插入指定单元格

Question

我要求提示以下问题。如何从事件表添加到指定的单元格形状？当我知道名称但不知道如何为...中的每个形状实现论坛时，我可以添加形状

目前我有这样的事情:

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