Método DataColumns.SetColumnProperties (Visio)

Define uma ou mais propriedades para uma ou mais colunas de dados.

Observação

This Visio object or member is available only to licensed users of Visio Professional 2013.

Sintaxe

expressão. SetColumnProperties (ColumnNames(), Properties(), Values())

Expressão Uma expressão que retorna um objeto DataColumns .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
ColumnNames()	Obrigatório	String	Uma matriz de cadeias de caracteres que representam nomes de coluna de dados.
Propriedades()	Obrigatório	Long	Uma matriz de propriedades de coluna de dados, como VisDataColumnProperties. Consulte comentários para os valores possíveis.
Valores()	Obrigatório	Variantes	Uma matriz de valores a serem atribuídos às propriedades. Consulte Comentários para obter os valores possíveis.

Valor de retorno

Nada

Comentários

O método SetColumnProperties é uma maneira mais eficiente de definir simultaneamente propriedades para várias colunas de dados do que definir propriedades para uma coluna de cada vez. Dependendo dos itens incluídos em cada uma das três matrizes de parâmetros, você poderá alterar várias propriedades da mesma coluna de dados ou uma ou mais propriedades de diferentes colunas de dados. Para cada alteração que desejar fazer, passe os tripletos de nome/propriedade/valor de coluna relacionados nas posições correspondentes de todas as três matrizes. Observe que o tamanho de todas as três matrizes passadas para o método deverá ser igual; caso contrário, o método retornará um erro.

Para o parâmetro ColumnNames(), passe uma matriz dos nomes das colunas de dados cujas propriedades você deseja alterar. Se desejar alterar várias propriedades da mesma coluna, insira o mesmo nome em várias posições na matriz ou o nome de coluna em uma posição na matriz e inclua cadeias de caracteres vazias nas posições sucessivas que correspondem às posições na matriz das propriedades que você deseja alterar.

Os valores possíveis para os itens na matriz de parâmetros Properties() são declarados em VisDataColumnProperties e mostrados na tabela a seguir.

Constant	Valor	Descrição
visDataColumnPropertyCalendar	3	Calendário da propriedade de coluna de dados.
visDataColumnPropertyCurrency	5	Moeda da propriedade de coluna de dados.
visDataColumnPropertyDisplayName	6	Nome para exibição da propriedade de coluna de dados na interface do usuário.
visDataColumnPropertyHyperlink	8	Se o valor da coluna de dados se tornará um hiperlink na interface do usuário do Visio quando for vinculado a uma forma.
visDataColumnPropertyLangID	2	Identificação de idioma da propriedade de coluna de dados.
visDataColumnPropertyType	1	Tipo de dados da propriedade de coluna de dados.
visDataColumnPropertyUnits	4	Unidades da propriedade de coluna de dados.
visDataColumnPropertyVisible	7	Se a propriedade de coluna de dados estará visível na interface do usuário.

Os valores possíveis para os itens na matriz de parâmetros Values() dependem dos valores correspondentes dos parâmetros da matriz Property(). A tabela no tópico DataColumn.SetProperty mostra valores válidos de propriedade de coluna de dados para cada propriedade de coluna de dados, dependendo do tipo de dados da coluna de dados.

Exemplo

A macro VBA (Microsoft Visual Basic for Applications) a seguir mostra como definir o valor de uma única propriedade para duas colunas diferentes no conjunto de registros adicionado mais recentemente na coleção DataRecordsets do documento ativo. A macro supõe que o conjunto de registros adicionado mais recentemente baseia-se nos dados da planilha ORGDATA.xls fornecida com o Visio. Código de exemplo para adicionar esse conjunto de registros de dados é mostrado no tópico método DataRecordsets.Add . Entretanto, você pode usar esse código com qualquer conjunto de registros de dados que tenha pelo menos duas colunas.

A macro altera para "Dept." o nome para exibição da primeira coluna e define a propriedade Hyperlink da segunda coluna como True. Depois disso (se você usou ORGDATA como sua fonte de dados), o endereço de email das formas vinculadas aos dados no conjunto de registros de dados atuará como um hiperlink.

Observe que alterar o nome de exibição de uma coluna de dados altera apenas sua propriedade DisplayName e não altera o nome programático da coluna, que é especificado por sua propriedade 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.