Compartilhar via

Método Page.GetShapesLinkedToData (Visio)

Retorna uma matriz de todas as formas na página ativa vinculadas aos dados do conjunto de registros de dados especificado.

Observação

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

Sintaxe

expression. GetShapesLinkedToData( _DataRecordsetID_ , _ShapeIDs()_ )

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

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.
ShapeIDs() Obrigatório Long Parâmetro externo. Uma matriz do tipo Longo que o método irá devolver preenchida com os IDs de formas das formas na página ligadas ao conjunto de registos 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 vinculadas na página, GetShapesLinkedToData retornará uma matriz vazia.

Para determinar a linha de dados específica nas formas do conjunto de registos de dados, utilize o método Page.GetShapesLinkedToDataRow .

Exemplo

A macro a seguir do Microsoft Visual Basic for Applications (VBA) mostra como usar o método GetShapesLinkedToData para determinar as identificações das formas na página vinculadas aos dados do 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 no conjunto de registos de dados.

Public Sub GetShapesLinkedToData_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim intRecordsetCount As Integer 
    Dim alngShapeIDs() As Long 
    Dim intArrayCounter As Integer 
     
    intRecordsetCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intRecordsetCount) 
     
    ActivePage.GetShapesLinkedToData vsoDataRecordset.ID, 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.

  • Last updated on