Cell.GlueToPos-Methode (Visio)

Verklebt eine Form an eine andere von einer Zelle in der ersten Form an eine x,y-Position in der zweiten Form.

Syntax

Ausdruck. GlueToPos (SheetObject, xPercent, yPercent)

Ausdruck Eine Variable, die ein Cell-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
SheetObject	Erforderlich	[IVSHAPE]	Ein Ausdruck, der das zu klebende Shape-Objekt zurückgibt.
xPercent	Erforderlich	Double	Die X-Koordinate der Position, an die geklebt werden soll.
yPercent	Erforderlich	Double	Die Y-Koordinate der Position, an die geklebt werden soll.

Rückgabewert

Nichts

Bemerkungen

Die GlueToPos-Methode erstellt einen neuen Verbindungspunkt an der durch xPercent und yPercent festgelegten Position, die dezimale Bruchteile der Breite bzw. Höhe der angegebenen Form anstelle von Koordinaten darstellen. Im folgenden Beispiel wird ein Verbindungspunkt in der Mitte von SheetObject erstellt und der Teil der Form, die cellObject darstellt, bis zu diesem Punkt geklebt:

cellObject. GlueToPosSheetObject, 0.5, 0.5

Durch das Kleben der X-Zelle einer Zeile des Controls-Abschnitts oder einer BeginX- oder EndX-Zelle wird automatisch die Y-Zelle der Zeile des Controls-Abschnitts oder der BeginY- bzw. EndY-Zelle geklebt (umgekehrt gilt dasselbe).

Beispiel

Das folgende Beispiel veranschaulicht, wie Sie mit der GlueToPos-Methode Shapes aneinander kleben.

 
Public Sub GlueToPos_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 
 
 '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") 
 
 'Use the GlueToPos method to glue the begin point of the 1D shape 
 'to the top center of the lower 2D shape. 
 vsoCellGlueFromBegin.GlueToPos vso2DShape1, 0.5, 1 
 
 'Use the GlueToPos method to glue the endpoint of the 1D shape 
 'to the bottom center of the upper 2D shape. 
 vsoCellGlueFromEnd.GlueToPos vso2DShape2, 0.5, 0 
 
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.