Kann nicht Formen über Shape.Name verbinden =

Question

ich verschiedene Formen in Excel mit Steckern mit dem folgenden Code verbinden möchten:

Set Shape = w.Shapes.AddShape(msoShapeRectangle, X, Y, w, h) With Shape .Name = ExampleName+i End With

Aus irgendeinem Grund kann ich nur über Shape Anschlüsse hinzufügen, aber nicht über ExampleName+i.

conn.ConnectorFormat.BeginConnect Shape, 1 < - Werke `conn.ConnectorFormat.BeginConnect EXAMPLENAME + i, 1 < - nicht

Funktioniert

Jeder Vorschlag, wie diese zu lösen? Ich brauche das, weil die Formen innerhalb einer For-Schleife erstellt werden und unterschiedliche Namen haben sollen.

Answer 1

Während Sie sich in der For-Schleife befinden, können Sie auf die Create-Form verweisen, wie immer Sie sie festlegen, solange Sie nur mit jeweils einer Form arbeiten. In diesem Fall Shape (ich würde diese Variable ändern).

So würde die Schleife in etwa so aussehen:

Sub test() 
For each strName in strNames() 
    Set shpRectangle = w.Shapes.AddShape(msoShapeRectangle, X, Y, w, h) 
    With shpRectangle 
     .Name = strName 
    End With 
    shpRectangle.  <rest of code> 
Next strName 
End Sub