Connect.ToPart プロパティ (Visio)
接続先となっている図形の部分を返します。 読み取り専用です。
構文
式。ToPart
式Connect オブジェクトを表す変数。
戻り値
整数
注釈
ToPart プロパティは、別の図形の接着先となる図形の部分 (始点や終点、エッジ、接続ポイントなど) を示します。 Visio タイプ ライブラリのメンバー VisToParts で宣言されている次の定数は、ToPart プロパティの戻り値を示します。
| 定数 | 値 |
|---|---|
| visConnectToError | -1 |
| visToNone | 0 |
| visGuideX | 1 |
| visGuideY | 2 |
| visWholeShape | 3 |
| visGuideIntersect | 4 |
| visToAngle | 7 |
| visConnectionPoint | 100 + 接続ポイントの行インデックス |
例
この VBA (Microsoft Visual Basic for Applications) マクロは、Microsoft Visio 図面から接続情報を抽出する方法を示します。 この例では、接続情報はイミディエイト ウィンドウに表示されます。
この例は、接続された図形を少なくとも 2 つ含むアクティブな図面があることを前提としています。
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
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。