Halli hallo!
Ich möchte gerne für meine Formen, die abgerundete Rechtecke sind und keinen Konnektor haben diese automatisch zuweisen lassen. Habe dafür folgenden Code geschrieben, der z.T. auch funktioniert. Lediglich das Ende des Konnektors wird aufgrund eines Syntaxfehlers nicht angebunden. Ich weiß jedoch leider nicht wie ich diesen beheben soll. Kann mir bitte jemand dabei behilflich sein? Schon mal vielen Dank.
Viele Grüße,
Corina
Sub AddConnector()
Dim ws As Worksheet
Dim shp As Shape
Dim cnct As Shape
For Each shp In Worksheets("Checklist Structure").Shapes
If shp.AutoShapeType = msoShapeRoundedRectangle And shp.Connector = msoFalse Then
Else
Set cnct = Worksheets("Checklist Structure").Shapes.AddConnector(msoConnectorElbow, 5, 5, 5, 5)
With cnct
.Line.EndArrowheadStyle = msoArrowheadOpen
.ConnectorFormat.BeginConnect Worksheets("Checklist Structure").Shapes("Rounded Rectangle 46"), 2
.ConnectorFormat.EndConnect(shp, 2)
End With
End If
Next
End Sub
|