Метод Shape.IsCustomPropertyLinked (Visio)

Статья
04/07/2023

Возвращает значение, указывающее, связана ли строка данных фигуры (настраиваемое свойство) в разделе Данные фигуры электронной таблицы фигуры со строкой данных в указанном наборе записей данных.

Примечание.

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

Синтаксис

выражение. IsCustomPropertyLinked( _DataRecordsetID_ , _CustomPropertyIndex_ )

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

Параметры

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

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

Boolean

Примечания

Вызовите этот метод перед вызовом метода GetCustomPropertyLinkedColumn , чтобы убедиться, что элемент данных фигуры (строка пользовательского свойства) фактически связан со столбцом данных.

Примечание.

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

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

Пример

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

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

Public Sub IsCustomPropertyLinked_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim boolIsLinked As Boolean 
         
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
     
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 4, 4) 
     
    boolIsLinked = vsoShape.IsCustomPropertyLinked(vsoDataRecordset.ID, 1) 
     
    Debug.Print boolIsLinked 
     
    vsoShape.LinkToData vsoDataRecordset.ID, 1, True 
    boolIsLinked = vsoShape.IsCustomPropertyLinked(vsoDataRecordset.ID, 1) 
     
    Debug.Print boolIsLinked 
     
End Sub

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

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

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