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.
expression. GetShapesLinkedToDataRow
( _DataRecordsetID_
, _DataRowID_
, _ShapeIDs()_
)
Expressão Uma expressão que retorna um objeto Page .
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. |
Nada
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.
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
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.