Méthode Shape.IsCustomPropertyLinked (Visio)

Article
04/07/2023

Renvoie une valeur indiquant si la ligne de données de forme (propriété personnalisée) de la section Données de forme de la feuille ShapeSheet de la forme est liée à une ligne de données dans le 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. IsCustomPropertyLinked( _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 de données qui contient la ligne de données.
CustomPropertyIndex	Obligatoire	Long	Index de la ligne de données de forme (propriété personnalisée) dans la section Données de forme de la feuille ShapeSheet de la forme.

Valeur renvoyée

Booléen

Remarques

Appelez cette méthode avant d’appeler la méthode GetCustomPropertyLinkedColumn pour vous assurer que l’élément de données de forme (ligne de propriété personnalisée) est réellement lié à une 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.

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.

Exemple

La macro Microsoft Visual Basic pour Applications (VBA) suivante montre comment utiliser la méthode IsCustomPropertyLinked pour déterminer si la ligne de propriété personnalisée d’une forme est liée à une ligne 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 déplace une forme, effectue un test pour déterminer si le premier élément de données de forme de la forme est lié à une ligne de données du jeu d’enregistrements de données dernièrement ajouté à la collection, puis affiche lé résultat du test dans la fenêtre Exécution. Le résultat du test est négatif, car la forme n’a pas été liée aux données. La forme est alors liée aux données du jeu d’enregistrements de données dernièrement ajouté, puis le test est de nouveau effectué.

Public Sub IsCustomPropertyLinked_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim boolIsLinked As Boolean 
         
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
     
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 4, 4) 
     
    boolIsLinked = vsoShape.IsCustomPropertyLinked(vsoDataRecordset.ID, 1) 
     
    Debug.Print boolIsLinked 
     
    vsoShape.LinkToData vsoDataRecordset.ID, 1, True 
    boolIsLinked = vsoShape.IsCustomPropertyLinked(vsoDataRecordset.ID, 1) 
     
    Debug.Print boolIsLinked 
     
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