ConnectorFormat-Objekt (Publisher)

  • Artikel

Enthält Eigenschaften und Methoden, die für Verbindungen gelten. Eine Verbindung ist eine Linie, die zwei andere Formen an Punkt verbindet, die Verbindungsseiten genannt werden. Wenn Sie die verbundenen Formen neu anordnen, wird die Geometrie der Verbindung automatisch angepasst, sodass die Formen verbunden bleiben.

HinwBemerkungeneise

Verwenden Sie die ConnectorFormat -Eigenschaft der Form Objekt oder ShapeRange Auflistung, um ein ConnectorFormat -Objekt zurückzugeben.

Verwenden Sie die BeginConnect und EndConnect die Methoden des ConnectorFormat -Objekts, um den Enden einer Verbindung mit anderen Formen in der Publikation zu verbinden.

Verwenden Sie die RerouteConnections -Methode des Shape -Objekt und die ShapeRange -Auflistung, um automatisch den kürzesten Pfad zwischen den beiden Formen, die durch die Verbindung verbundenen suchen.

Verwenden Sie die Connector-Eigenschaft , um zu bestimmen, 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. Größe und Position werden jedoch automatisch angepasst, wenn Sie den Anfang und das Ende der Verbindung an andere Shapes in der Auflistung anfügen. Wenn Sie also beabsichtigen, einen Verbinder an andere Formen anzufügen, 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

Im folgenden Beispiel werden der aktiven Publikation zwei Rechtecke hinzugefügt und dann mit einem gekrümmten Verbinder verbunden.

Dim shpAll As Shapes 
Dim firstRect As Shape 
Dim secondRect As Shape 
 
Set shpAll = ActiveDocument.Pages(1).Shapes 
Set firstRect = shpAll.AddShape(Type:=msoShapeRectangle, _ 
 Left:=100, Top:=50, Width:=200, Height:=100) 
Set secondRect = shpAll.AddShape(Type:=msoShapeRectangle, _ 
 Left:=300, Top:=300, Width:=200, Height:=100) 


With shpAll.AddConnector(Type:=msoConnectorCurve, BeginX:=0, _ 
 BeginY:=0, EndX:=0, EndY:=0).ConnectorFormat 
 .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1 
 .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1 
 .Parent.RerouteConnections 
End With

Methoden

Eigenschaften

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.