ToPart Property [Visio 2003 SDK Documentation]

Returns the part of a shape to which a connection is made.

intRet = object**.ToPart**

intRet     Integer. The part of the shape to which a connection is made.

object     Required. An expression that returns a Connect object.

Version added

2.0

Remarks

The ToPart property identifies the part of a shape to which another shape is glued, such as its begin point or end point, one of its edges, or a connection point. The following constants declared by the Visio type library in member VisToParts show possible return values for the ToPart property.

Example

This Microsoft Visual Basic for Applications (VBA) macro shows how to extract connection information from a Microsoft Visio drawing. The example displays the connection information in the Immediate window.

This example assumes there is an active document that contains at least two connected shapes.

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

Applies to | Connect object

See Also | FromPart property | GlueTo method | ToSheet property