Método DataColumn.GetProperty (Visio)

Obtém o valor da da propriedade de coluna de dados especificada.

Sintaxe

expressão. GetProperty (Propriedade)

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

Parâmetros

Valor de retorno

Variant

Comentários

Quando você vincula as formas de um desenho do Microsoft Visio aos dados de um conjunto de registros de dados, o Visio mapeia as colunas do conjunto de registros de dados para as linhas na seção Shape Data da planilha ShapeSheet, com cada uma correspondendo a um item de dados da forma.

As propriedades de coluna de dados mapeiam as colunas de dados para determinadas células na seção Shape Data do ShapeSheet. Por exemplo, passando o método GetProperty para a propriedade DisplayName , que é representada pelo valor enumerado visDataColumnPropertyDisplayName, você pode obter o valor da célula Label na seção Dados de Forma do ShapeSheet para um determinado item de dados de forma. Além disso, essa propriedade define o rótulo do item de dados de forma na caixa de diálogo Dados de Forma , bem como o nome da coluna de dados exibida na janela Dados Externos na interface do usuário do Visio.

Os valores possíveis para o parâmetro Property são declarados em VisDataColumnProperties e mostrados na tabela a seguir.

Exemplo

A macro do Microsoft Visual Basic for Applications (VBA) a seguir mostra como usar o método GetProperty para obter o valor da célula Label na seção Dados de Forma para a primeira coluna no conjunto de registros de dados passado para o método e exibi-lo na janela Imediata. Em seguida, ele usa o método SetProperty para definir o valor e exibe o novo valor. A alteração desse valor modifica o rótulo do item de dados da forma na caixa de diálogo Dados da Forma de todas as formas vinculadas às linhas no conjunto de registros de dados.

Para obter e definir o valor da célula Label, a macro passa o valor visDataColumnPropertyDisplayName da enumeração VisDataColumnProperties para os métodos DataColumn.GetProperty e DataColumn.SetProperty.

Antes de executar essa macro, crie pelo menos um conjunto de registros de dados em seu projeto VBA para passar para a macro.

 
Public Sub GetProperty_Example(vsoDataRecordset As Visio.DataRecordset) 
    Dim strPropertyName As String 
    Dim strNewName As String 
    Dim vsoDataColumn As Visio.DataColumn 
 
    strNewName = "New Property Name" 
    Set vsoDataColumn = vsoDataRecordset.DataColumns(1) 
 
    strPropertyName = vsoDataColumn.GetProperty(visDataColumnPropertyDisplayName) 
    Debug.Print strPropertyName 
 
    vsoDataColumn.SetProperty visDataColumnPropertyDisplayName, strNewName 
    strPropertyName = vsoDataColumn.GetProperty(visDataColumnPropertyDisplayName) 
    Debug.Print strPropertyName 
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.