Método Page.GetShapesLinkedToDataRow (Visio)

Retorna uma matriz de todas as formas na página ativa vinculadas aos dados da linha de dados especificada no conjunto de registros de dados específico.

Sintaxe

expression. GetShapesLinkedToDataRow( _DataRecordsetID_ , _DataRowID_ , _ShapeIDs()_ )

expressão Uma expressão que devolve um objeto Página .

Parâmetros

Valor de retorno

Nada

Comentários

Para o parâmetro ShapeIDs(), passe uma matriz vazia e sem dimensões do tipo Long. Se não existirem formas na página ligadas à linha de dados especificada por DataRowID no conjunto de registos de dados especificado por DataRecordsetID, GetShapesLinkedToDataRow devolverá uma matriz vazia.

Para determinar os IDs de todas as linhas de dados num conjunto de registos de dados, utilize o método DataRecordset.GetDataRowIDs . Tenha em atenção que os IDs da linha de dados nem sempre correspondem necessariamente à posição lógica das linhas de dados no conjunto de registos de dados.

Exemplo

A macro a seguir do Microsoft Visual Basic for Applications (VBA) mostra como usar o método GetShapesLinkedToDataRow para determinar as identificações das formas na página vinculadas aos dados da linha de dados com número de identificação 1 no conjunto de registros de dados adicionado mais recentemente à coleção DataRecordsets do documento atual. Ela imprime as identificações de forma na janela Immediate.

Antes de executar esta macro, utilize o método DataRecordsets.Add ou outro meio para adicionar pelo menos um conjunto de registos de dados à coleção DataRecordsets e certifique-se de que existe pelo menos uma forma na página ativa ligada aos dados na linha de dados com o ID número 1 no conjunto de registos de dados.

Public Sub GetShapesLinkedToDataRow_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim intRecordsetCount As Integer 
    Dim alngShapeIDs() As Long 
    Dim lngDataRowID As Long 
    Dim intArrayCounter As Integer 
     
    intRecordsetCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intRecordsetCount) 
     
    lngDataRowID = 1 
     
    ActivePage.GetShapesLinkedToDataRow vsoDataRecordset.ID, lngDataRowID, alngShapeIDs 
     
    For intArrayCounter = LBound(alngShapeIDs) To UBound(alngShapeIDs) 
        Debug.Print alngShapeIDs(intArrayCounter) 
    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.