Метод Page.GetShapesLinkedToDataRow (Visio)

Статья
04/07/2023

Возвращает массив всех фигур на активной странице, связанной с данными в указанной строке данных в указанном наборе записей данных.

Примечание.

Этот объект или элемент Visio доступен только лицензированным пользователям Visio профессиональный 2013.

Синтаксис

выражение. GetShapesLinkedToDataRow( _DataRecordsetID_ , _DataRowID_ , _ShapeIDs()_ )

Выражение Выражение, возвращающее объект Page .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
DataRecordsetID	Обязательный	Long	Идентификатор набора записей данных, содержащегося в текущем документе.
DataRowID	Обязательный	Long	Идентификатор строки данных в наборе записей данных, указанном в dataRecordsetID.
ShapeIDs()	Обязательный	Long	Параметр Out. Массив типа Long , который будет возвращать метод, заполненный идентификаторами фигур на странице, связанной со строкой данных, указанной в DataRowID, в наборе записей данных, указанном в DataRecordsetID.

Возвращаемое значение

Отсутствует

Примечания

Для параметра ShapeIDs() передайте пустой безразмерный массив типа Long. Если на странице нет фигур, связанных со строкой данных, указанной DataRowID в наборе записей данных, заданном параметром DataRecordsetID, метод GetShapesLinkedToDataRow вернет пустой массив.

Чтобы определить идентификаторы всех строк данных в наборе записей данных, используйте метод DataRecordset.GetDataRowIDs . Обратите внимание, что идентификаторы строк данных не всегда соответствуют логическому положению строк данных в наборе записей данных.

Пример

В следующем макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать метод GetShapesLinkedToDataRow для определения идентификаторов фигур на странице, связанных с данными в строке данных с идентификатором 1 в наборе записей данных, недавно добавленном в коллекцию DataRecordsets текущего документа. Он выводит идентификаторы фигур в окне Интерпретация.

Перед выполнением этого макроса используйте метод DataRecordsets.Add или другое средство, чтобы добавить по крайней мере один набор записей данных в коллекцию DataRecordsets и убедиться, что на активной странице есть по крайней мере одна фигура, связанная с данными в строке данных с идентификатором 1 в наборе записей данных.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через