Método DataColumns.SetColumnProperties (Visio)

Establece una o varias de las propiedades de columna de datos de una o varias columnas de datos.

Nota:

Este objeto o miembro Visio solo se encuentra disponible para los usuarios con licencia de Visio Professional 2013.

Sintaxis

expresión. SetColumnProperties (ColumnNames(), Properties(), Values())

Expresión Expresión que devuelve un objeto DataColumns .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
ColumnNames()	Obligatorio	String	Matriz de cadenas que representan nombres de columna de datos.
Properties()	Necesario	Long	Cualquier matriz de propiedades de columnas de datos, como VisDataColumnProperties. Vea la sección Comentarios para los valores posibles.
Values()	Obligatorio	Variant	Cualquier matriz de los valores que se van a asignar a las propiedades. Vea la sección Comentarios para obtener los posibles valores.

Valor devuelto

Nothing

Comentarios

El método SetColumnProperties es una forma más eficaz de establecer propiedades para varias columnas de datos simultáneamente que establecer las propiedades de columna en columna. En función de los elementos que especifique en cada una de las tres matrices de parámetros, puede cambiar varias propiedades de la misma columna de datos; o bien, una o más propiedades de columnas de datos distintas. Por cada cambio que desee realizar, pase los tripletes de nombre de columna/propiedad/valor relacionados a las posiciones correspondientes de las tres matrices. Observe que el tamaño de las tres matrices que pase al método deben ser iguales ya que, de lo contrario, se producirá un error en el método.

Para el parámetro ColumnNames(), pase una matriz de los nombres de las columnas de datos cuyas propiedades desee cambiar. Si desea cambiar varias propiedades de la misma columna, puede colocar el mismo nombre en varias posiciones de las matrices; o bien, puede colocar el nombre de la columna en la posición de una matriz y colocar cadenas vacías en las posiciones subsiguientes que corresponden a las posiciones de las matrices de las propiedades que desea cambiar.

Los posibles valores de los elementos de la matriz del parámetro Properties() se declaran en VisDataColumnProperties y se muestran en la siguiente tabla.

Constante	Valor	Descripción
visDataColumnPropertyCalendar	3	Calendario de la propiedad de columna de datos.
visDataColumnPropertyCurrency	5	Moneda de la propiedad de columna de datos.
visDataColumnPropertyDisplayName	6	Nombre para mostrar de la propiedad de columna de datos de la IU.
visDataColumnPropertyHyperlink	8	Si el valor de la columna de datos se convierte en un hipervínculo de la IU de Visio cuando se vincula a una forma.
visDataColumnPropertyLangID	2	Identificador de idioma de la propiedad de columna de datos.
visDataColumnPropertyType	1	Tipo de datos de la propiedad de columna de datos.
visDataColumnPropertyUnits	4	Unidades de la propiedad de columna de datos.
visDataColumnPropertyVisible	7	Si la propiedad de columna de datos se ve en la IU.

Los posibles valores de los elementos de la matriz del parámetro Values() dependen de los valores de los parámetros de las matrices Property() correspondientes. La tabla del tema DataColumn.SetProperty muestra valores de propiedad de columna de datos válidos para cada propiedad de columna de datos, en función del tipo de datos de columna de datos.

Ejemplo:

La siguiente macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo establecer el valor de una sola propiedad para dos columnas diferentes en el conjunto de registros agregado más recientemente en la colección DataRecordsets del documento activo. La macro supone que este conjunto de registros se basa en los datos de la hoja de cálculo ORGDATA.xls incluida en Visio. El código de ejemplo para agregar ese conjunto de registros de datos se muestra en el tema Método DataRecordsets.Add . No obstante, puede usar este código con cualquier conjunto de registros que tenga, al menos, dos columnas.

La macro cambia el nombre para mostrar de la primera columna a "Dept." y establece la propiedad Hyperlink de la segunda columna en True. A partir de entonces (si usó ORGDATA como origen de datos), la dirección de correo electrónico de las formas vinculadas a los datos del conjunto de registros de datos actuará como un hipervínculo.

Tenga en cuenta que al cambiar el nombre para mostrar de una columna de datos solo cambia su propiedad DisplayName y no cambia el nombre de programación de la columna, que se especifica mediante su propiedad 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.