Thema Datum  Von Nutzer Rating
Antwort
Rot Konnektor verbindet das Ende nicht
 28.04.2014 16:34:13 Corina
NotSolved
28.04.2014 17:31:35 Gast66399
NotSolved
29.04.2014 09:05:24 Corina
NotSolved
29.04.2014 12:19:16 Gast58210
NotSolved
29.04.2014 12:29:18 Gast58210
NotSolved
29.04.2014 13:04:44 Gast93132
NotSolved
29.04.2014 13:11:11 Gast42193
*****
Solved
29.04.2014 14:35:21 Corina
NotSolved
Rot Ok
 29.04.2014 18:25:38 Gast80647
NotSolved
30.04.2014 09:01:00 Corina
NotSolved
30.04.2014 09:23:15 Corina
NotSolved
30.04.2014 14:18:11 Gast46487
NotSolved

Ansicht des Beitrags:
Von:
Corina		 Datum:
28.04.2014 16:34:13		 Views:
1583		 Rating:
     
Antwort:
  Ja
Thema:
Konnektor verbindet das Ende nicht

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Konnektor verbindet das Ende nicht
 28.04.2014 16:34:13 Corina
NotSolved
28.04.2014 17:31:35 Gast66399
NotSolved
29.04.2014 09:05:24 Corina
NotSolved
29.04.2014 12:19:16 Gast58210
NotSolved
29.04.2014 12:29:18 Gast58210
NotSolved
29.04.2014 13:04:44 Gast93132
NotSolved
29.04.2014 13:11:11 Gast42193
*****
Solved
29.04.2014 14:35:21 Corina
NotSolved
Rot Ok
 29.04.2014 18:25:38 Gast80647
NotSolved
30.04.2014 09:01:00 Corina
NotSolved
30.04.2014 09:23:15 Corina
NotSolved
30.04.2014 14:18:11 Gast46487
NotSolved