Méthode Page.GetShapesLinkedToData (Visio)

Article
04/07/2023

Renvoie un tableau de toutes les formes sur la page active qui sont liées aux données du 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. GetShapesLinkedToData( _DataRecordsetID_ , _ShapeIDs()_ )

Expression Expression qui renvoie un objet Page .

Parameters

Nom	Requis/Facultatif	Type de données	Description
DataRecordsetID	Obligatoire	Long	ID d'un jeu d'enregistrements de données contenu dans le document actif.
ShapeIDs()	Obligatoire	Long	Paramètre sortant. Tableau de type Long que la méthode renvoie rempli des ID de forme des formes de la page liée au jeu d’enregistrements de données spécifié dans DataRecordsetID.

Valeur renvoyée

Aucune

Remarques

Pour le paramètre IDForme(), transmettez un tableau vide et sans dimension de type Long. Si la page ne contient aucune forme liée, GetShapesLinkedToData renvoie un tableau vide.

Pour déterminer la ligne de données spécifique dans les formes de jeu d’enregistrements de données qui sont liées, utilisez la méthode Page.GetShapesLinkedToDataRow .

Exemple

La macro Microsoft Visual Basic pour Applications (VBA) ci-dessous illustre comment utiliser la méthode GetShapesLinkedToData pour déterminer les ID de forme des formes sur la page qui sont liées aux données du jeu d'enregistrements dernièrement ajouté à la collection DataRecordsets du document actif. Elle affiche les ID de forme dans la fenêtre Exécution.

Avant d’exécuter cette macro, utilisez la méthode DataRecordsets.Add ou un autre moyen pour ajouter au moins un jeu d’enregistrements de données à la collection DataRecordsets et vérifiez qu’au moins une forme de la page active est liée aux données du jeu d’enregistrements de données.

Public Sub GetShapesLinkedToData_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim intRecordsetCount As Integer 
    Dim alngShapeIDs() As Long 
    Dim intArrayCounter As Integer 
     
    intRecordsetCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intRecordsetCount) 
     
    ActivePage.GetShapesLinkedToData vsoDataRecordset.ID, alngShapeIDs 
     
    For intArrayCounter = LBound(alngShapeIDs) To UBound(alngShapeIDs) 
        Debug.Print alngShapeIDs(intArrayCounter) 
    Next 
     
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