Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Enthält Eigenschaften und Methoden, die für Verbindungen gelten.
Hinweise
Eine Verbindung ist eine Linie, die zwei andere Formen mit als "Verbindungsseiten" bezeichneten Punkten zusammenfügt. Wenn Sie verbundene Formen neu anordnen, wird die Geometrie der Verbindung automatisch so angepasst, dass die Formen verbunden bleiben.
Verbindungspunkte werden im Allgemeinen nach den in der folgenden Tabelle aufgeführten Regeln nummeriert.
| Formart | Schema für die Nummerierung der Verbindungsseite |
|---|---|
| AutoFormen, WordArt, Grafiken und OLE-Objekte | Die Verbindungsseiten werden von oben fortlaufend entgegen dem Uhrzeigersinn nummeriert. |
| Freihandformen | Die Verbindungsseiten sind die Scheitelpunkte, die den Nummern der Scheitelpunkte entsprechen. |
Verwenden Sie die ConnectorFormat-Eigenschaft des Shape-Objekts , um ein ConnectorFormat-Objekt zurückzugeben. Verwenden Sie die Methoden BeginConnect und EndConnect, die am Ende der Verbindung mit anderen Formen im Dokument anfügen. Verwenden Sie die RerouteConnections-Methode des Shape-Objekts , um automatisch den kürzesten Pfad zwischen den beiden Shapes zu finden, die durch den Verbinder verbunden sind. Verwenden Sie die Connector -Eigenschaft, um festzustellen, ob eine Form eine Verbindung ist.
Hinweis
Sie weisen eine Größe und eine Position zu, wenn Sie der Shapes-Auflistung einen Verbinder hinzufügen, aber die Größe und Position werden automatisch angepasst, wenn Sie den Anfang und das Ende des Verbinders an andere Shapes in der Auflistung anfügen. Wenn Sie also einen Verbinder an andere Shapes anfügen möchten, sind die von Ihnen angegebene Anfangsgröße und -position irrelevant.
Ebenso Sie festlegen, welche Verbindungsseiten einer Form mit der Verbindung, wenn Sie die Verbindung verbinden, aber die RerouteConnections -Methode verwenden, nachdem die Verbindung verbunden ist möglicherweise die Verbindungsseiten die Verbindung, und Ihre ursprüngliche Auswahl von Verbindungsseiten irrelevant machen ändern.
Beispiel
Um herauszufinden, welche Zahl welcher Verbindungsstelle auf einem komplexen Shape entspricht, können Sie mit dem Shape experimentieren, während der Makrorekorder eingeschaltet ist, und dann den aufgezeichneten Code untersuchen. Sie können auch eine Form erstellen, sie auswählen und dann das folgende Beispiel ausführen. Mit diesem Code wird jeder Verbindungsstandort nummeriert und ein Verbinder daran angefügt.
Set mainshape = ActiveWindow.Selection.ShapeRange(1)
With mainshape
bx = .Left + .Width + 50
by = .Top + .Height + 50
End With
With ActiveSheet
For j = 1 To mainshape.ConnectionSiteCount
With .Shapes.AddConnector(msoConnectorStraight, _
bx, by, bx + 50, by + 50)
.ConnectorFormat.EndConnect mainshape, j
.ConnectorFormat.Type = msoConnectorElbow
.Line.ForeColor.RGB = RGB(255, 0, 0)
l = .Left
t = .Top
End With
With .Shapes.AddTextbox(msoTextOrientationHorizontal, _
l, t, 36, 14)
.Fill.Visible = False
.Line.Visible = False
.TextFrame.Characters.Text = j
End With
Next j
End With
Im folgenden Beispiel werden myDocument zwei Rechtecke hinzugefügt und die Rechtecke durch eine gekrümmte Verbindung miteinander verbunden.
Set myDocument = Worksheets(1)
Set s = myDocument.Shapes
Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100)
Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100)
Set c = s.AddConnector(msoConnectorCurve, 0, 0, 0, 0)
With c.ConnectorFormat
.BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
.EndConnect ConnectedShape:=secondRect, ConnectionSite:=1
c.RerouteConnections
End With
Methoden
Eigenschaften
- Application
- BeginConnected
- BeginConnectedShape
- BeginConnectionSite
- Creator
- EndConnected
- EndConnectedShape
- EndConnectionSite
- Parent
- Type
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.