Propriedade Connect.FromPart (Visio)
Retorna a parte de uma forma da qual uma conexão se origina. Somente leitura.
Sintaxe
expressão. FromPart
Expressão Uma variável que representa um objeto Connect .
Valor de retorno
Inteiro
Comentários
As seguintes constantes declaradas pela biblioteca de tipos do Microsoft Visio mostram valores de retorno da propriedade FromPart.
| Constant | Valor |
|---|---|
| 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 + índice da linha de base zero (por exemplo, visControlPoint = 100 se o ponto de controle estiver na linha 0; visControlPoint = 101 se o ponto de controle estiver na linha 1) |
Exemplo
Esta macro do VBA (Microsoft Visual Basic for Applications) mostra como extrair informações de conexão de um desenho do Visio. O exemplo exibe as informações da conexão na janela Immediate.
O exemplo presume que haja um documento ativo contendo pelo menos duas formas conectadas.
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
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.