DataColumn.GetProperty, méthode (Visio)

Article
04/07/2023

Obtient la valeur de la propriété de colonne de données spécifiée.

Remarque

Cet objet ou ce membre Visio est disponible uniquement pour les titulaires d’une licence d’utilisation de Visio Professionnel 2013.

Syntaxe

expression. GetProperty (Property)

Expression Expression qui renvoie un objet DataColumn .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Propriété	Requis	VisDataColumnProperties	Propriété de colonne de données à obtenir. Consultez remarques pour connaître les valeurs possibles.

Valeur renvoyée

Variant

Remarques

Lorsque vous liez des formes dans un dessin Microsoft Visio à des données dans un jeu d’enregistrements de données, Visio mappe des colonnes dans le jeu d’enregistrements de données à des lignes de la section Données de forme de la feuille de calcul ShapeSheet. Chacune d’entre elles correspond à un élément de données de forme.

Remarque

Dans certaines versions antérieures de Visio, les données de forme étaient appelées des propriétés personnalisées.

Les propriétés de colonne de données mappent des colonnes de données à certaines cellules de la section Données de forme de la feuille ShapeSheet. Par exemple, en transmettant à la méthode GetProperty la propriété DisplayName , qui est représentée par la valeur énumérée visDataColumnPropertyDisplayName, vous pouvez obtenir la valeur de la cellule Label dans la section Données de forme de la feuille ShapeSheet pour un élément de données de forme particulier. En outre, cette propriété définit l’étiquette de l’élément de données de forme dans la boîte de dialogue Données de forme, ainsi que le nom de la colonne de données affichée dans la fenêtre Données externes de l’interface utilisateur de Visio.

Les valeurs possibles pour le paramètre Propriétés sont déclarées dans VisDataColumnProperties. Elles apparaissent aussi dans le tableau suivant.

Constante	Valeur	Description
visDataColumnPropertyCalendar	3	Calendrier de la propriété de colonne de données.
visDataColumnPropertyCurrency	5	Devise de la propriété de colonne de données.
visDataColumnPropertyDisplayName	6	Nom complet de la propriété de colonne de données dans l'interface utilisateur.
visDataColumnPropertyHyperlink	8	Si la valeur de colonne de données devient un lien hypertexte dans l'interface utilisateur de Visio lorsqu'elle est liée à une forme.
visDataColumnPropertyLangID	2	ID de langue de la propriété de colonne de données.
visDataColumnPropertyType	1	Type de la propriété de colonne de données.
visDataColumnPropertyUnits	4	Unités de la propriété de colonne de données.
visDataColumnPropertyVisible	7	Si la propriété de colonne de données est visible dans l'interface utilisateur.

Exemple

La macro Microsoft Visual Basic pour Applications (VBA) suivante montre comment utiliser la méthode GetProperty pour obtenir la valeur de la cellule Label dans la section Données de forme pour la première colonne du jeu d’enregistrements de données passé à la méthode et l’afficher dans la fenêtre Exécution. Il utilise ensuite la méthode SetProperty pour définir la valeur et affiche la nouvelle valeur. Modification de cette valeur modifie l’étiquette de l’élément de données de forme dans le données de forme boîte de dialogue de toutes les formes liées à des lignes dans le jeu d’enregistrements de données.

Pour obtenir et définir la valeur de la cellule Étiquette, la macro transmet la valeur visDataColumnPropertyDisplayName depuis l'énumération VisDataColumnProperties vers les méthodes DataColumn.GetProperty et DataColumn.SetProperty.

Avant d'exécuter cette macro, créez au moins un jeu d'enregistrements de données dans votre projet VBA pour passer à la 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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via