Connect.FromPart プロパティ (Visio)
接続元の図形の部分を返します。 読み取り専用です。
構文
式。FromPart
式Connect オブジェクトを表す変数。
戻り値
整数
注釈
Microsoft Visio タイプ ライブラリで宣言された次の定数は、FromPart プロパティの戻り値を示します。
定数 | 値 |
---|---|
visConnectFromError | -1 |
visFromNone | 0 |
visLeftEdge | 1 |
visCenterEdge | 2 |
visRightEdge | 3 |
visBottomEdge | 4 |
visMiddleEdge | 5 |
visTopEdge | 6 |
visBeginX | 7 |
visBeginY | 8 |
visBegin | 9 |
visEndX | 10 |
visEndY | 11 |
visEnd | 12 |
visFromAngle | 13 |
visFromPin | 14 |
visControlPoint | 100 + 0 を基準とする行インデックス (たとえば、コントロール ポイントが行 0 にある場合は visControlPoint = 100、コントロール ポイントが行 1 にある場合は visControlPoint = 101) |
例
この Microsoft Visual Basic for Applications (VBA) マクロは、Visio 図面から接続情報を抽出する方法を示しています。 この例では、接続情報はイミディエイト ウィンドウに表示されます。
この例は、接続された図形を少なくとも 2 つ含むアクティブな図面があることを前提としています。
Public Sub FromPart_Example()
Dim vsoShapes As Visio.Shapes
Dim vsoShape As Visio.Shape
Dim vsoConnectFrom As Visio.Shape
Dim intFromData As Integer
Dim strFrom As String
Dim vsoConnects As Visio.Connects
Dim vsoConnect As Visio.Connect
Dim intCurrentShapeIndex As Integer
Dim intCounter As Integer
Set vsoShapes = ActivePage.Shapes
'For each shape on the page, get its connections.
For intCurrentShapeIndex = 1 To vsoShapes.Count
Set vsoShape = vsoShapes(intCurrentShapeIndex)
Set vsoConnects = vsoShape.Connects
'For each connection, get the shape it originates from
'and the part of the shape it originates from,
'and print that information in the Immediate window.
For intCounter = 1 To vsoConnects.Count
Set vsoConnect = vsoConnects(intCounter)
Set vsoConnectFrom = vsoConnect.FromSheet
intFromData = vsoConnect.FromPart
'FromPart property values
If intFromData = visConnectError Then
strFrom = "error"
ElseIf intFromData = visNone Then
strFrom = "none"
ElseIf intFromData = visLeftEdge Then
strFrom = "left"
ElseIf intFromData = visCenterEdge Then
strFrom = "center"
ElseIf intFromData = visRightEdge Then
strFrom = "right"
ElseIf intFromData = visBottomEdge Then
strFrom = "bottom"
ElseIf intFromData = visMiddleEdge Then
strFrom = "middle"
ElseIf intFromData = visTopEdge Then
strFrom = "top"
ElseIf intFromData = visBeginX Then
strFrom = "beginX"
ElseIf intFromData = visBeginY Then
strFrom = "beginY"
ElseIf intFromData = visBegin Then
strFrom = "begin"
ElseIf intFromData = visEndX Then
strFrom = "endX"
ElseIf intFromData = visEndY Then
strFrom = "endY"
ElseIf intFromData = visEnd Then
strFrom = "end"
ElseIf intFromData >= visControlPoint Then
strFrom = "controlPt_" & _
Str(intFromData - visControlPoint + 1)
Else
strFrom = "???"
End If
Debug.Print vsoConnectFrom.Name & " " & strFrom
Next intCounter
Next intCurrentShapeIndex
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。