Метод Shape.GetLinkedDataRow (Visio)
Возвращает идентификатор строки данных в указанном наборе записей данных, связанном с фигурой.
Примечание.
Этот объект или элемент Visio доступен только лицензированным пользователям Visio профессиональный 2013.
Синтаксис
выражение. GetLinkedDataRow
( _DataRecordsetID_
)
Выражение Выражение, возвращающее объект Shape .
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
DataRecordsetID | Обязательный | Long | Идентификатор набора записей данных, содержащего связанную строку. |
Возвращаемое значение
Длинное целое
Замечания
Метод GetLinkedDataRow завершается ошибкой , если фигура не связана со строкой данных.
Пример
В следующем макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать метод GetLinkedDataRow для получения идентификатора строки данных в указанном наборе данных, связанном с фигурой.
Перед выполнением этого макроса добавьте по крайней мере один набор записей данных в коллекцию DataRecordsets документа. Макрос удаляет фигуру на страницу, связывает фигуру со строкой данных в наборе записей данных, который был добавлен в коллекцию, получает идентификатор строки, а затем выводит идентификатор строки в окне Интерпретация.
Public Sub GetLinkedDataRow_Example()
Dim vsoDataRecordset As Visio.DataRecordset
Dim vsoShape As Visio.Shape
Dim intCount As Integer
Dim lngRowID As Long
intCount = Visio.ActiveDocument.DataRecordsets.Count
Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount)
Set vsoShape = ActivePage.DrawRectangle(2, 2, 4, 4)
vsoShape.LinkToData vsoDataRecordset.ID, 1, True
lngRowID = vsoShape.GetLinkedDataRow(vsoDataRecordset.ID)
Debug.Print lngRowID
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.