Propiedad Connect.ToSheet (Visio)
Devuelve la forma con la que se realizan una o varias conexiones. Solo lectura.
Sintaxis
expresión. ToSheet
Expresión Variable que representa un objeto Connect .
Valor devuelto
Forma
Comentarios
La propiedad ToSheet de un objeto Connect siempre devuelve la forma con la que se realiza la conexión.
La colección Connects representa varias conexiones. Si todas las conexiones representadas por la colección se realizan con la misma forma, la propiedad ToSheet devolverá esa forma. De lo contrario, devolverá Nothing y no generará ninguna excepción.
Ejemplo:
En esta macro de Microsoft Visual Basic para Aplicaciones (VBA) se muestra cómo usar la propiedad ToSheet para buscar la forma a partir de la cual se origina un objeto Connect de un dibujo de Microsoft 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. Para obtener los mejores resultados, conecte dos formas de la galería de símbolos Formas para organigramas.
Public Sub ToSheet_Example()
Dim vsoShapes As Visio.Shapes
Dim vsoShape As Visio.Shape
Dim vsoConnectTo As Visio.Shape
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 connects to.
For intCounter = 1 To vsoConnects.Count
Set vsoConnect = vsoConnects(intCounter)
Set vsoConnectTo = vsoConnect.ToSheet
'Print the name of the shape the
'Connect object connects to.
Debug.Print vsoConnectTo.Name
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.