Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Devuelve la parte de una forma desde la que se origina una conexión. Solo lectura.
Sintaxis
expresión. FromPart
expresión Variable que representa un objeto Connect .
Valor devuelto
Entero
Observaciones
Las constantes siguientes declaradas en la biblioteca de tipos de Microsoft Visio muestran los valores devueltos para la propiedad FromPart.
| Constante | 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 + el índice de fila de base cero (por ejemplo, visControlPoint = 100 si el punto de control está en la fila 0; visControlPoint = 101 si el punto de control está en la fila 1) |
Ejemplo
Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo extraer información sobre las conexiones de un dibujo de Visio. El ejemplo muestra la información sobre las conexiones en la ventana Inmediato.
En este ejemplo se da por hecho que existe un documento activo que contiene al menos dos 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
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.