Wie legen Sie die Form in die angegebene Zelle mit “für jede Form in activesheet.Formen" in excel-vba

Bitte ich um Hinweis mit folgenden problem. Gewusst wie: hinzufügen zu angegebenen Zellen Formen von activesheet? Ich bin in der Lage, die Form, wenn ich den Namen kennen, aber nicht wissen, wie zu implementieren, die Formel für jede Form in...

Derzeit habe ich so etwas wie dieses:

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

Aber ich brauche etwas, was mit diesem:

For Each Shape In ActiveSheet.Shapes
Wie können Sie sich zu einer Form in einer for-Schleife, wenn es nicht noch hinzu?

InformationsquelleAutor Ascorpio | 2013-11-22

  1. 3

    Ich bin nicht sicher, was Sie brauchen, aber versuchen Sie, diese

    Dim shp As Shape

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

    Diese nur iteriert über die Shapes-Auflistung. So müssen Sie die Formen in Ort, um Zugang zu Ihnen zu => logisch.

    Wenn Sie versuchen, hinzufügen von Formen, die Sie nicht verwenden können, die for each im .Shapes als .Shapes Sammlung leer gewesen wären.

    So, sobald Sie wissen, die Formen, die Namen können Sie

    Sheets("Sheet1").Shapes("Rectangle 1").Copy
Sheets("Sheet2").Select
Range("B2").Select
Sheets(2).Paste
    If you are trying to add shapes you can't use the for each in .Shapes as the .Shapes collection would have been empty. So sehr wahr 🙂
    Ok. So was, wenn ich habe einige shapes in einem Arbeitsblatt und möchte Sie zu einem anderen Arbeitsblatt?
    die Sie brauchen, um sich zu qualifizieren, das Blatt, so ersetzen ActiveSheet.Shapes mit Sheets("Sheet name").Shapes Durchlaufen shapes-Auflistung in "Blatt-name". Was meinst du mit Sie die Sie nutzen wollen, ?
    Das einlegen in die Zellen.

    InformationsquelleAutor

Schreibe einen Kommentar