Метод Shape.LinkToData (Visio)

Статья
04/07/2023

Связывает фигуру со строкой данных в наборе записей данных.

Примечание.

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

Синтаксис

выражение. LinkToData( _DataRecordsetID_ , _RowID_ , _AutoApplyDataGraphics_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
DataRecordsetID	Обязательный	Long	Идентификатор набора записей данных, содержащего данные для связывания.
RowID	Обязательный	Long	Идентификатор строки в наборе записей данных, содержащей конкретную запись данных, с ней необходимо связать.
AutoApplyDataGraphics	Необязательный	Логический	Следует ли автоматически применять рисунок данных к связанным фигурам. Дополнительные сведения см. в разделе Примечания.

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

Отсутствует

Примечания

Метод Shape.LinkToData работает аналогично тому же методу объекта Selection , Selection.LinkToData, за исключением того, что он связывает одну фигуру, а не выборку фигур с одной строкой данных.

Если передать значение True для параметра AutoApplyDataGraphics, Microsoft Visio повторно применит существующий рисунок данных к фигуре, если к ней уже применен графический объект данных до вызова метода . Для фигуры, в которой ранее не было графических данных, Visio применяет рисунок данных, который последний раз применялся к любой другой фигуре в текущем документе.

Пример

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

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

Public Sub LinkToData_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
     
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
     
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 5, 5) 
     
    vsoShape.LinkToData vsoDataRecordset.ID, 1, True 
 
End Sub

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

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

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