Cell.GlueTo-Methode (Visio)

Artikel
04/07/2023

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

Syntax

Ausdruck. GlueTo (CellObject)

Ausdruck Eine Variable, die ein Cell-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
CellObject	Erforderlich	[IVCELL]	Ein Ausdruck, der ein Cell-Objekt zurückgibt, das den Teil des Shapes darstellt, an das angeklebt werden soll.

Rückgabewert

Nichts

Bemerkungen

Es folgt eine Liste möglicher Verbindungen.

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

Eine Verbindungspunktzelle.
Eine Zelle eines Führungs- oder Führungspunkts: Wenn die Anfangs- oder Endzelle einer 1D-Form an eine Zelle eines Führungs- oder Führungspunkts geklebt wird, werden zwei Verbindungen erstellt– eine von der BeginX- oder EndX-Zelle zur Winkelzelle der Führungslinie und eine von der BeginY- oder EndY-Zelle zur Angle-Zelle der Führungslinie.
Der Pin einer 2D-Form (erzeugt dynamischen Klebstoff): Das Shape, aus dem geklebt wird, muss routingfähig sein (ObjType enthält visLOFlagsRoutable) oder einen dynamischen Klebetyp aufweisen (GlueType enthält visGlueTypeWalking) und keinen dynamischen Kleber verbietet (GlueType schließt visGlueTypeNoWalking nicht ein). Durch das Kleben an PinX entsteht dynamischer Klebstoff mit horizontaler Gehpräferenz und das Kleben an PinY erzeugt dynamischen Klebstoff mit einer vertikalen Gehpräferenz.
Jede Zelle einer Vertexzeile in einem Geometry-Abschnitt: Es wird ein Verbindungspunkt erstellt, an den geklebt wird. Entweder die Anfangs- oder Endzelle kann als die Zelle festgelegt werden, aus der 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, an den geklebt wird. Entweder die Anfangs- oder Endzelle kann als die Zelle festgelegt werden, aus der geklebt werden soll. Mit der GlueTo-Methode werden neue Formeln in den X- und Y-Zellen der Verbindungszeile eingerichtet.
Der Rand (eine Zelle im Abschnitt Ausrichtung) einer 2D-Form: Es wird ein Verbindungspunkt erstellt, an den geklebt wird. Entweder die Anfangs- oder Endzelle kann als die Zelle festgelegt werden, aus der geklebt werden soll. Mit der GlueTo-Methode werden neue Formeln in den X- und Y-Zellen der Verbindungszeile eingerichtet.

Vom Rand (einer Zelle im Abschnitt Ausrichtung) eines 2D-Shapes zu einer Zelle eines Führungs- oder Führungspunkts.

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

Von einer Verbindungspunktzelle eines 2D-Shapes bis zu einer Verbindungspunktzelle vom Typ "nach innen" oder "nach innen/außen", bei der es sich nicht um eine Zelle eines Führungs- oder Führungspunkts handelt: Wenn der äußere Verbindungspunkt über eine Richtung verfügt, werden zwei Verbindungspunkte erstellt– einer von der Zelle Angle zur Zelle Connections.X i und der andere von der PinX-Zelle zur Zelle Connections.Y i .

Von einer Kontrollpunktzelle an...

Eine Verbindungspunktzelle.
Eine Zelle eines Führungs- oder Führungspunkts: Wenn ein Kontrollpunkt an eine Zelle eines Führungs- oder Führungspunkts geklebt wird, die keine Verbindungspunktzelle ist, werden zwei Verbindungen erstellt– eine mit pinX des Führungsleitfadens und eine mit pinY des Führungsleitfadens.
Jede Zelle einer Vertexzeile in einem Geometry-Abschnitt: Es wird ein Verbindungspunkt erstellt, an den geklebt 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 kein Führungs- oder Führungspunkt ist: Es wird ein Verbindungspunkt erstellt, an den geklebt 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.
Der Rand (eine Zelle im Abschnitt Ausrichtung) einer 2D-Form: Es wird ein Verbindungspunkt erstellt, an den geklebt 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.

Share via