Shape.ConnectedShapes method (Visio) (Método Shape.ConnectedShapes [Visio])

Retorna uma matriz que contém os IDs (identificadores) das formas que são conectadas à forma.

Sintaxe

expression. ConnectedShapes( _Flags_ , _CategoryFilter_ )

expressão Uma variável que representa um objeto Shape.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Flags	Obrigatório	VisConnectedShapesFlags	Filtra a matriz de IDs de forma retornados pela direcionalidade dos conectores. Consulte Comentários para obter os valores possíveis.
CategoryFilter	Obrigatório	String	Filtra a matriz de IDs de forma retornados limitando-a aos IDs de formas que correspondem à categoria especificada.

Valor de retorno

Longo()

Comentários

O valor Flags deve ser uma das constantes VisConnectedShapesFlags a seguir.

Constant	Valor	Descrição
visConnectedShapesAllNodes	0	Retorna IDs de formas que são associados às conexões de entrada e de saída.
visConnectedShapesIncomingNodes	1	Retorna IDs de formas que são associados às conexões de entrada.
visConnectedShapesOutgoingNodes	2	Retorna IDs de formas que são associados às conexões de saída.

As categorias são cadeias de caracteres definidas pelo usuário que você pode usar para categorizar formas, e assim, restringir a associação em um contêiner. Você pode definir categorias na célula User.msvShapeCategories do ShapeSheet para uma forma. Pode também definir várias categorias para uma forma separando-as com ponto-e-vírgula.

Se o objeto de origem for uma forma 1D ou parte de um master, o método ConnectedShapes devolve um erro de Origem Inválida.

Se nenhuma forma conectada qualificada existir, o método ConnectedShapes retornará uma matriz vazia.

Exemplos

A seguinte macro Visual Basic for Applications (VBA) mostra como utilizar o método ConnectedShapes para localizar os nomes de todas as formas na outra extremidade das ligações de saída a partir de uma forma selecionada.

Código de exemplo fornecido por:Fred Diggs

Public Sub ConnectedShapes_Outgoing_Example()
' Get the shapes that are connected to the selected shape
' by outgoing connectors.
    Dim vsoShape As Visio.Shape
    Dim lngShapeIDs() As Long
    Dim intCount As Integer

    If ActiveWindow.Selection.Count = 0 Then
        MsgBox ("Please select a shape that has connections")
        Exit Sub
    Else
        Set vsoShape = ActiveWindow.Selection(1)
    End If

    lngShapeIDs = vsoShape.ConnectedShapes _
      (visConnectedShapesOutgoingNodes, "")
    Debug.Print "Shapes at the end of outgoing connectors:"
    For intCount = 0 To UBound(lngShapeIDs)
        Debug.Print ActivePage.Shapes(lngShapeIDs(intCount)).Name
    Next
End Sub

A seguinte macro VBA mostra como utilizar o método ConnectedShapes para localizar os nomes de todas as formas na outra extremidade das ligações de entrada para uma forma selecionada.

Código de exemplo fornecido por:Fred Diggs

Public Sub ConnectedShapes_Incoming_Example()
' Get the shapes that are at the other end of 
' incoming connections to a selected shape
    Dim vsoShape As Visio.Shape
    Dim lngShapeIDs() As Long
    Dim intCount As Integer

    If ActiveWindow.Selection.Count = 0 Then
        MsgBox ("Please select a shape that has connections.")
        Exit Sub
    Else
        Set vsoShape = ActiveWindow.Selection(1)
    End If

    lngShapeIDs = vsoShape.ConnectedShapes _
      (visConnectedShapesIncomingNodes, "")
    Debug.Print "Shapes that are at the other end of incoming connections:"
    For intCount = 0 To UBound(lngShapeIDs)
        Debug.Print ActivePage.Shapes(lngShapeIDs(intCount)).Name
    Next
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.