Connect.ToPart-Eigenschaft (Visio)

Gibt den Teil eines Shapes zurück, zu dem eine Verbindung hergestellt wird. Schreibgeschützt.

Syntax

Ausdruck. ToPart

Ausdruck Eine Variable, die ein Connect-Objekt darstellt.

Rückgabewert

Ganze Zahl

HinwBemerkungeneise

Die ToPart-Eigenschaft gibt den Teil des Shapes an, an den ein anderes Shape angeklebt ist, beispielsweise den Anfangs- oder Endpunkt, einen der Ränder oder einen Verbindungspunkt. Die folgenden Konstanten, die von der Visio-Typbibliothek im Mitglied VisToParts deklariert werden, zeigen die möglichen Rückgabewerte für die ToPart-Eigenschaft an.

Konstante	Wert
visConnectToError	-1
visToNone	0
visGuideX	1
visGuideY	2
visWholeShape	3
visGuideIntersect	4
visToAngle	7
visConnectionPoint	100 + Zeilenindex des Verbindungspunkts

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie Verbindungsinformationen aus einer Microsoft Visio-Zeichnung extrahieren. Das Beispiel zeigt die Verbindungsinformationen im Direktfenster an.

Dieses Beispiel setzt voraus, dass ein aktives Dokument mindestens zwei verbundene Shapes enthält.

 
Public Sub ToPart_Example() 
 
 Dim vsoShapes As Visio.Shapes 
 Dim vsoShape As Visio.Shape 
 Dim vsoConnectTo As Visio.Shape 
 Dim intToData As Integer 
 Dim strTo As String 
 Dim vsoConnects As Visio.Connects 
 Dim vsoConnect As Visio.Connect 
 Dim intCurrentShapeID As Integer 
 Dim intCounter As Integer 
 
 Set vsoShapes = ActivePage.Shapes 
 
 'For each shape on the page, get its connections. 
 For intCurrentShapeID = 1 To vsoShapes.Count 
 
 Set vsoShape = vsoShapes(intCurrentShapeID) 
 Set vsoConnects = vsoShape.Connects 
 
 'For each connection, get the shape it connects to 
 'and the part of the shape it connects to, 
 'and print that information in the Immediate window. 
 For intCounter = 1 To vsoConnects.Count 
 
 Set vsoConnect = vsoConnects(intCounter) 
 Set vsoConnectTo = vsoConnect.ToSheet 
 intToData = vsoConnect.ToPart 
 
 If intToData = visConnectError Then 
 strTo = "error" 
 ElseIf intToData = visNone Then 
 strTo = "none" 
 ElseIf intToData = visGuideX Then 
 strTo = "guideX" 
 ElseIf intToData = visGuideY Then 
 strTo = "guideY" 
 ElseIf intToData = visWholeShape Then 
 strTo = "dynamic glue" 
 ElseIf intToData >= visConnectionPoint Then 
 strTo = "connection point " & _ 
 CStr(intToData - visConnectionPoint + 1) 
 Else 
 strTo = "???" 
 End If 
 
 'Print the name and part of the shape the 
 'Connect object connects to. 
 Debug.Print "To "; vsoConnectTo.Name & " " & strTo & "." 
 
 Next intCounter 
 
 Next intCurrentShapeID 
 
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.