Méthode Selection.BreakLinkToData (Visio)

Article
04/07/2023

Rompt des liaisons entre toutes les formes dans les lignes de sélection et 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. BreakLinkToData( _DataRecordsetID_ )

Expression Expression qui renvoie un objet Selection .

Parameters

Nom	Requis/Facultatif	Type de données	Description
DataRecordsetID	Obligatoire	Long	ID du jeu d'enregistrements de données contenant les lignes de données avec lesquelles rompre les liaisons.

Valeur renvoyée

Aucune

Remarques

Si Microsoft Visio ne peut pas rompre le lien entre une forme de la sélection et la ligne de données ou si le lien n’existe pas, Visio ignore la forme et passe à la forme suivante de la sélection. Après avoir exécuté la méthode, pour déterminer si des formes de la sélection sont toujours liées à une ligne de données, appelez la méthode Shape.GetLinkedDataRow sur chaque forme de la sélection. Si la méthode GetLinkedDataRow échoue pour une forme, cela indique que la forme n’est plus liée à la ligne de données ou n’a jamais été liée à la ligne de données.

Notez que la rupture des liaisons entre des formes et des données ne supprime pas les données de forme (appelées propriétés personnalisées dans certaines versions précédentes de Visio) à partir de formes, ni les graphiques de données associés à des formes.

Exemple

La macro Microsoft Visual Basic pour Applications (VBA) suivante montre comment utiliser la méthode BreakLinkToData pour rompre tous les liens entre les formes d’une sélection et les lignes de données d’un jeu d’enregistrements de données.

Avant d’exécuter cette macro, placez plusieurs formes sur la page, ajoutez au moins un jeu d’enregistrements de données à la collection DataRecordsets du document et utilisez n’importe quelle méthode de liaison pour lier plusieurs formes à une ou plusieurs lignes de données dans le jeu d’enregistrements de données que vous avez ajouté récemment à la collection.

Public Sub BreakLinkToData_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoSelection As Visio.Selection 
    Dim intCount As Integer 
        
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
     
    ActiveWindow.DeselectAll 
    ActiveWindow.SelectAll 
     
    Set vsoSelection = ActiveWindow.Selection 
    Call vsoSelection.BreakLinkToData(vsoDataRecordset.ID) 
     
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