Метод DataColumns.SetColumnProperties (Visio)

Статья
04/07/2023

Задает одно или несколько свойств столбцов данных для одного или нескольких столбцов данных.

Примечание.

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

Синтаксис

expression. SetColumnProperties (ColumnNames(), Properties(), Values())

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
ColumnNames()	Обязательный	String	Массив строк, представляющих имена столбцов данных.
Properties()	Обязательный	Long	Массив свойств столбца данных, например VisDataColumnProperties. Возможные значения см. в разделе Примечания.
Значения()	Обязательный	Variant	Массив значений, присваиваемых свойствам. Возможные значения см. в разделе Примечания.

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

Отсутствует

Примечания

Метод SetColumnProperties — это более эффективный способ одновременного задания свойств для нескольких столбцов данных, чем установка свойств по одному столбцу за раз. В зависимости от элементов, размещенных в каждом из трех массивов параметров, можно изменить несколько свойств одного столбца данных или одно или несколько свойств разных столбцов данных. Для каждого изменения, которое вы хотите внести, передайте связанные триплеты столбца-имени/свойства/значения в соответствующих позициях всех трех массивов. Обратите внимание, что размер всех трех массивов, которые передаются в метод, должен быть одинаковым, иначе метод вернет ошибку.

Для параметра ColumnNames() передайте массив имен столбцов данных, свойства которых требуется изменить. Если вы хотите изменить несколько свойств одного столбца, можно либо поместить одно и то же имя в несколько позиций массива, либо поместить имя столбца в одну позицию массива и поместить пустые строки в последующие позиции, соответствующие позициям массива свойств, которые нужно изменить.

Возможные значения для элементов в массиве параметров Properties() объявлены в VisDataColumnProperties и показаны в следующей таблице.

Константа	Значение	Описание
visDataColumnPropertyCalendar	3	Календарь свойства data-column.
visDataColumnPropertyCurrency	5	Валюта свойства столбца данных.
visDataColumnPropertyDisplayName	6	Отображаемое имя свойства столбца данных в пользовательском интерфейсе.
visDataColumnPropertyHyperlink	8	Становится ли значение столбца данных гиперссылкой в пользовательском интерфейсе Visio при его связывании с фигурой.
visDataColumnPropertyLangID	2	Идентификатор языка свойства столбца данных.
visDataColumnPropertyType	1	Тип данных свойства data-column.
visDataColumnPropertyUnits	4	Единицы свойства data-column.
visDataColumnPropertyVisible	7	Отображается ли свойство data-column в пользовательском интерфейсе.

Возможные значения для элементов в массиве параметров Values() зависят от соответствующих значений параметров массива Property(). В таблице в разделе DataColumn.SetProperty отображаются допустимые значения свойств data-column для каждого свойства data-column в зависимости от типа данных столбца данных.

Пример

В следующем макросе Microsoft Visual Basic для приложений (VBA) показано, как задать значение одного свойства для двух разных столбцов в последнем добавленном наборе записей в коллекции DataRecordsets активного документа. Макрос предполагает, что последний добавленный набор записей основан на данных в ORGDATA.xls электронной таблице, поставляемой вместе с Visio. Пример кода для добавления этого набора записей данных показан в разделе Метод DataRecordsets.Add . Однако этот код можно использовать с любым набором записей данных, который содержит по крайней мере два столбца.

Макрос изменяет отображаемое имя первого столбца на "Dept" и задает для свойства Hyperlink второго столбца значение True. После этого (если вы использовали ORGDATA в качестве источника данных), адрес электронной почты фигур, связанных с данными в наборе записей данных, будет выступать в качестве гиперссылки.

Обратите внимание, что изменение отображаемого имени столбца данных изменяет только его свойство DisplayName и не изменяет программное имя столбца, которое задается его свойством Name .

 
Public Sub SetColumnProperties_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim intCount As Integer 
     
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
     
    Dim astrColumnNames(1) As String 
    Dim alngProperties(1) As Long 
    Dim avarValues(1) As Variant 
     
    astrColumnNames(0) = vsoDataRecordset.DataColumns(1).DisplayName 
    astrColumnNames(1) = vsoDataRecordset.DataColumns(2).DisplayName 
        
    alngProperties(0) = visDataColumnPropertyDisplayName 
    alngProperties(1) = visDataColumnPropertyHyperlink 
        
    avarValues(0) = "Dept." 
    avarValues(1) = True 
         
    vsoDataRecordset.DataColumns.SetColumnProperties astrColumnNames, alngProperties, avarValues 
 
End Sub

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

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

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