Méthode Shape.GetCustomPropertyLinkedColumn (Visio)

Article
04/07/2023

Renvoie le nom de la colonne de données qui est liée à la ligne de données de forme (propriété personnalisée) de la feuille de calcul ShapeSheet de la forme spécifiée par l’index de la propriété personnalisé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. GetCustomPropertyLinkedColumn( _DataRecordsetID_ , _CustomPropertyIndex_ )

Expression Expression qui renvoie un objet Shape .

Parameters

Nom	Requis/Facultatif	Type de données	Description
DataRecordsetID	Obligatoire	Long	ID du jeu d'enregistrements qui contient la colonne de données liée à la propriété personnalisée de la forme.
CustomPropertyIndex	Obligatoire	Long	Index de l'élément de données de forme (propriété personnalisée) qui est lié à la colonne de données du jeu d'enregistrements de données.

Valeur renvoyée

Chaîne

Remarques

Si la méthode échoue, appelez la méthode Shape.IsCustomPropertyLinked pour vous assurer que l’élément de données de forme (ligne de propriété personnalisée) a bien été lié à la colonne de données.

Remarque

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

Exemple

La macro Microsoft Visual Basic pour Applications (VBA) ci-dessous illustre comment utiliser la méthode GetCustomPropertyLinkedColumn pour récupérer le nom de la colonne de données du jeu d'enregistrements de données qui est liée à un élément de données de forme spécifique.

Avant d’exécuter cette macro, ajoutez au moins un jeu d’enregistrements de données à la collection DataRecordsets du document. La macro place une forme dans la page, la lie aux données du jeu d’enregistrements de données dernièrement ajouté à la collection, puis effectue un test pour vérifier que la liaison est correcte. Si tel est le cas, elle affiche le nom de la colonne de données du jeu d’enregistrements de données qui est liée à l’élément de données de forme (propriété personnalisée) spécifié dans la fenêtre Exécution.

Public Sub GetCustomPropertyLinkedColumn_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim boolIsLinked As Boolean 
    Dim lngIndex As Long 
    Dim strColumnName As String 
         
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 4, 4) 
     
    vsoShape.LinkToData vsoDataRecordset.ID, 1, True 
    boolIsLinked = vsoShape.IsCustomPropertyLinked(vsoDataRecordset.ID, 1) 
     
    If boolIsLinked Then 
     
        strColumnName = vsoShape.GetCustomPropertyLinkedColumn(vsoDataRecordset.ID, 1) 
        Debug.Print "Linked column name is", strColumnName 
     
    Else 
     
        Debug.Print "Not linked." 
         
    End If 
 
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