Cell.GlueTo-Methode (Visio)

Klebt Shapes zusammen, und zwar aus einer Zelle im ersten Shape mit einer Zelle im zweiten Shape.

Syntax

Ausdruck verwendet werden. GlueTo (CellObject)

Ausdruck Eine Variable, die ein Cell-Objekt darstellt.

Parameter

Rückgabewert

Nichts

Bemerkungen

Es folgt eine Liste möglicher Verbindungen.

Es folgt eine Liste möglicher Verbindungen.

Von der Anfangs- oder Endzelle eines 1D-Shapes bis...

• Eine Verbindungspunktzelle.

• Eine Zelle einer Führungslinie oder eines Führungspunkts: Wenn die Anfangs- oder Endzelle eines 1D-Shapes an eine Zelle einer Führungslinie oder eines Führungspunkts geklebt wird, werden zwei Verbindungen hergestellt: eine von der BeginX- oder EndX-Zelle zur Winkelzelle der Führungslinie und eine von der BeginY- oder EndY-Zelle zur Winkelzelle der Führungslinie.

• Der Pin einer 2D-Form (erzeugt dynamischen Kleber): Das Shape, aus dem geklebt wird, muss routingfähig sein (ObjType enthält visLOFlagsRouting) oder einen dynamischen Klebetyp aufweisen (GlueType enthält visGlueTypeWalking) und darf dynamisches Kleben nicht verbieten (GlueType enthält visGlueTypeNoWalking nicht). Durch Ankleben an PinX entsteht dynamischer Kleber mit einer horizontalen Gehpräferenz und durch Ankleben an PinY entsteht dynamischer Kleber mit einer vertikalen Gehpräferenz.

• Eine beliebige Zelle einer Scheitelpunktzeile in einem "geometry"-Abschnitt: Es wird ein Verbindungspunkt erstellt, der angeklebt wird. Entweder die Anfangs- oder Endzelle kann als Zelle festgelegt werden, von der aus geklebt werden soll. Mit der GlueTo-Methode werden neue Formeln in den X- und Y-Zellen der Verbindungszeile eingerichtet.

• Die Anfangs- oder Endzelle eines 1D-Shapes: Es wird ein Verbindungspunkt erstellt, der angeklebt wird. Entweder die Anfangs- oder Endzelle kann als Zelle festgelegt werden, von der aus geklebt werden soll. Mit der GlueTo-Methode werden neue Formeln in den X- und Y-Zellen der Verbindungszeile eingerichtet.

• Die Kante (eine Zelle im Abschnitt Ausrichtung) eines 2D-Shapes: Es wird ein Verbindungspunkt erstellt, der angeklebt wird. Entweder die Anfangs- oder Endzelle kann als Zelle festgelegt werden, von der aus geklebt werden soll. Mit der GlueTo-Methode werden neue Formeln in den X- und Y-Zellen der Verbindungszeile eingerichtet.

Von der Kante (einer Zelle im Abschnitt Ausrichtung) eines 2D-Shapes zu einer Zelle einer Führungslinie oder eines Führungspunkts.

Von einer nach außen gerichteten oder nach innen / außen gerichteten Verbindungspunktzelle eines 1D-Shapes zu einer nach innen oder innen / außen gerichteten Verbindungspunktzelle, die keine Zelle einer Führungslinie oder eines Führungspunkts ist: Wenn diese Zellen geklebt werden, werden zwei Verbindungen hergestellt: eine von der Zelle BeginX des 1D-Shapes zur Zelle Connections.Xi und die andere von der Zelle EndX des 1D-Shapes zur Zelle Connections.Y i .

Von einer nach außen gerichteten oder nach innen / außen gerichteten Verbindungspunktzelle eines 2D-Shapes zu einer nach innen oder innen / außen gerichteten Verbindungspunktzelle, die keine Zelle einer Führungslinie oder eines Führungspunkts ist: Wenn der nach außen gerichtete Verbindungspunkt eine Richtung aufweist, werden zwei Verbindungspunkte erstellt: einer von der Zelle Angle zur Zelle Connections.X i und der andere von der Zelle PinX zur Zelle Connections.Y i .

Von einer Kontrollpunktzelle an...

• Eine Verbindungspunktzelle.

• Eine Zelle einer Führungslinie oder eines Führungspunkts: Wenn ein Kontrollpunkt an eine Zelle einer Führungslinie oder eines Führungspunkts, bei dem es sich nicht um eine Verbindungspunktzelle handelt, geklebt wird, werden zwei Verbindungen hergestellt – eine mit dem PinX der Führungslinie und eine mit dem PinY der Führungslinie.

• Eine beliebige Zelle einer Scheitelpunktzeile in einem "geometry"-Abschnitt: Es wird ein Verbindungspunkt erstellt, der angeklebt wird. Jede Zelle in der Kontrollpunktzeile kann als Zelle festgelegt werden, von der aus geklebt wird. Mit der GlueTo-Methode werden neue Formeln in den X- und Y-Zellen der Verbindungszeile eingerichtet.

• Die Anfangs- oder Endzelle eines 1D-Shapes, das keine Führungslinie oder kein Führungspunkt ist: Es wird ein Verbindungspunkt erstellt, der angeklebt wird. Jede Zelle in der Kontrollpunktzeile kann als Zelle festgelegt werden, von der aus geklebt wird. Mit der GlueTo-Methode werden neue Formeln in den X- und Y-Zellen der Verbindungszeile eingerichtet.

• Die Kante (eine Zelle im Abschnitt Ausrichtung) eines 2D-Shapes: Es wird ein Verbindungspunkt erstellt, der angeklebt wird. Jede Zelle in der Kontrollpunktzeile kann als Zelle festgelegt werden, von der aus geklebt wird. Mit der GlueTo-Methode werden neue Formeln in den X- und Y-Zellen der Verbindungszeile eingerichtet.

Weitere Informationen zum Verbindungspunkttyp und zur Richtung finden Sie im Abschnitt "Connection Points".

Beispiel

Das folgende Makro veranschaulicht, wie Sie mit der GlueTo-Methode Shapes aneinander kleben.

 
Public Sub GlueTo_Example()  
 
    Dim vso1DShape As Visio.Shape  
    Dim vso2DShape1 As Visio.Shape  
    Dim vso2DShape2 As Visio.Shape  
    Dim vsoCellGlueFromBegin As Visio.Cell  
    Dim vsoCellGlueFromEnd As Visio.Cell  
    Dim vsoCellGlueToObject As Visio.Cell  
    Dim vsoCellGlueToObject2 As Visio.Cell  
 
    'Draw a line.  
    Set vso1DShape = ActivePage.DrawLine(3, 5, 5, 3)  
 
    'Draw the lower rectangle.  
    Set vso2DShape1 = ActivePage.DrawRectangle(1, 1, 4, 2)  
 
    'Draw the upper rectangle.  
    Set vso2DShape2 = ActivePage.DrawRectangle(5, 5, 8, 6)  
 
    'Get the Cell objects needed to make the connections.  
    Set vsoCellGlueFromBegin = vso1DShape.Cells("BeginX")  
    Set vsoCellGlueFromEnd = vso1DShape.Cells("EndX")  
    Set vsoCellGlueToObject = vso2DShape1.Cells("Geometry1.X3")  
    Set vsoCellGlueToObject2 = vso2DShape2.Cells("Geometry1.X1")  
 
    'Use the GlueTo method to glue the begin point of the 1D shape  
    'to the top right vertex (Geometry1.X3) of the lower 2D shape.  
    vsoCellGlueFromBegin.GlueTo vsoCellGlueToObject  
 
    'Use the GlueTo method to glue the endpoint of the 1D shape  
    'to the bottom left vertex (Geometry1.X1) of the upper 2D shape.  
    vsoCellGlueFromEnd.GlueTo vsoCellGlueToObject2  
 
    'You can also use the GlueTo method to glue  
    'by referencing a connection point cell.  
    Set vso1DShape = ActivePage.DrawLine(3, 5, 5, 3)  
    Set vsoCellGlueFromEnd = vso1DShape.Cells("EndX")  
    Set vsoCellGlueToObject = vso2DShape1.Cells("Connections.X1")  
    vsoCellGlueFromEnd.GlueTo vsoCellGlueToObject  
 
End Sub

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.