Метод Shape.GetCustomPropertyLinkedColumn (Visio)

Статья
04/07/2023

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

Примечание.

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

Синтаксис

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

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

Параметры

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

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

Строка

Замечания

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

Примечание.

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

Пример

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

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

Public Sub GetCustomPropertyLinkedColumn_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim boolIsLinked As Boolean 
    Dim lngIndex As Long 
    Dim strColumnName As String 
         
    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 
    boolIsLinked = vsoShape.IsCustomPropertyLinked(vsoDataRecordset.ID, 1) 
     
    If boolIsLinked Then 
     
        strColumnName = vsoShape.GetCustomPropertyLinkedColumn(vsoDataRecordset.ID, 1) 
        Debug.Print "Linked column name is", strColumnName 
     
    Else 
     
        Debug.Print "Not linked." 
         
    End If 
 
End Sub

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

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

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