Shape.GetCustomPropertiesLinkedToData, méthode (Visio)

Article
04/07/2023

Renvoie les ID des lignes d'élément de données de forme (propriété personnalisée) de la section Données de forme de la feuille de calcul ShapeSheet de la forme qui sont liées au jeu d'enregistrements de données spécifié.

Remarque

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

Syntaxe

expression. GetCustomPropertiesLinkedToData( _DataRecordsetID_ , _CustomPropertyIndices()_ )

Expression Expression qui renvoie un objet Shape .

Parameters

Nom	Requis/Facultatif	Type de données	Description
DataRecordsetID	Obligatoire	Long	ID du jeu d'enregistrements de données qui contient les données auxquelles la forme est liée.
CustomPropertyIndices()	Obligatoire	Long	Paramètre sortant. Tableau vide et sans dimension que la méthode remplit avec les ID de ligne des lignes shape-data-item (propriété personnalisée) dans la feuille ShapeSheet de la forme qui sont liées à des colonnes de données dans le jeu d’enregistrements de données.

Valeur renvoyée

Aucune

Remarques

Déterminer comment les formes sont liées aux données permet d'éviter tout conflit et toutes liaisons rompues lors de l'actualisation des données d'un ou de plusieurs jeux d'enregistrements 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) suivante montre comment utiliser la méthode GetCustomPropertiesLinkedToData pour obtenir les ID des lignes shape-data-item (propriété personnalisée) liées à une colonne de données dans un jeu d’enregistrements de données.

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 récupère les ID de toutes les lignes ShapeSheet liées aux données, puis les affiche dans la fenêtre Exécution.

Public Sub GetCustomPropertiesLinkedToData_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim boolIsLinked As Boolean 
    Dim alngIndices() As Long 
    Dim intArrayIndex as Integer 
            
    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 
         
        vsoShape.GetCustomPropertiesLinkedToData vsoDataRecordset.ID, alngIndices 
        For intArrayIndex = LBound(alngIndices) To UBound(alngIndices) 
             Debug.Print alngIndices(intArrayIndex) 
        Next 
     
    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