Compartilhar via


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.

Observação

This Visio object or member is available only to licensed users of Visio Professional 2013.

Sintaxe

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

Expressão Uma expressão que retorna um objeto Page .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
DataRecordsetID Obrigatório Long A identificação de um conjunto de registros de dados contido no documento atual.
DataRowID Obrigatório Long A identificação de uma linha de dados do conjunto de registros de dados especificado em DataRecordsetID.
ShapeIDs() Obrigatório Long Parâmetro externo. Uma matriz do tipo Long que o método retornará preenchida com as IDs de forma de formas na página vinculada à linha de dados especificada em DataRowID no conjunto de registros de dados especificado em DataRecordsetID.

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 houver formas na página vinculadas à linha de dados especificada pelo DataRowID no conjunto de registros de dados especificado por DataRecordsetID, GetShapesLinkedToDataRow retornará uma matriz vazia.

Para determinar as IDs de todas as linhas de dados em um conjunto de registros de dados, use o método DataRecordset.GetDataRowIDs . Observe que as IDs da linha de dados nem sempre correspondem à posição lógica das linhas de dados no conjunto de registros 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 essa macro, use o método DataRecordsets.Add ou outro meio para adicionar pelo menos um conjunto de registros de dados à coleção DataRecordsets e verifique se há pelo menos uma forma na página ativa vinculada aos dados na linha de dados com a ID número 1 no conjunto de registros 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.