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 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.
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 ao 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 vinculadas na página, GetShapesLinkedToData retornará uma matriz vazia.

Para determinar a linha de dados específica nas formas do conjunto de registros de dados, use 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 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 no conjunto de registros 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.