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.
Klebt ein Shape von einer Zelle im ersten Shape an eine x-/ y-Position im zweiten Shape.
Syntax
Ausdruck verwendet werden. 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. |
| xProzent | Erforderlich | Double | Die X-Koordinate der Position, an die geklebt werden soll. |
| yProzent | 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 bestimmten Position, die Dezimalbrüche der Breite bzw. Höhe des angegebenen Shapes darstellen, anstatt Koordinaten. Mit dem folgenden Befehl wird z. B. ein Verbindungspunkt in der Mitte von SheetObject erstellt und der Teil der Form, den cellObject darstellt, an diesen 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.