Méthode Page.DropLinked (Visio)

Article
04/07/2023

Renvoie une nouvelle forme de la page de dessin qui est liée aux données d'un jeu d'enregistrements de données.

Remarque

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

Syntaxe

expression. DropLinked( _ObjectToDrop_ , _x_ , _y_ , _DataRecordsetID_ , _DataRowID_ , _ApplyDataGraphicAfterLink_ )

Expression Expression qui renvoie un objet Page .

Parameters

Nom	Requis/Facultatif	Type de données	Description
ObjectToDrop	Requis	[UNKNOWN]	Objet à déplacer. S'il s'agit généralement d'un objet Visio tel que Master, Shape ou Selection, cela peut également être un objet OLE fournissant une interface IDataObject.
x	Obligatoire	Double	Coordonnée x où placer le centre de la largeur de la forme ou PinX.
y	Obligatoire	Double	Coordonnée y où placer le centre de la hauteur de la forme ou PinY.
DataRecordsetID	Obligatoire	Long	ID du jeu d'enregistrements de données qui contient les données à lier.
DataRowID	Obligatoire	Long	ID de la ligne de données qui contient les données à lier.
ApplyDataGraphicAfterLink	Requis	Boolean	Spécifie si le graphique de données actuel doit être appliqué à la forme liée. Par défaut, le graphique de données n'est pas appliqué. Voir la section Remarques pour plus d'informations.

Valeur renvoyée

Shape

Remarques

Lorsque vous souhaitez créer des formes déjà liées à des données sur une page de dessin qui ne contient pas de formes ou contient des formes autres que celles que vous souhaitez lier, vous pouvez utiliser les méthodes Page.DropLinked et Page.DropManyLinkedU pour créer une ou plusieurs formes supplémentaires déjà liées aux données. Ces méthodes ressemblent aux méthodes Page.Drop et Page.DropManyU existantes en ce qu’elles créent des formes supplémentaires à un emplacement spécifié sur la page ; Mais en outre, ils créent des liens entre les nouvelles formes et les lignes de données spécifiées dans un jeu d’enregistrements de données spécifié.

Lorsque l'objet transmis pour le paramètre ObjetÀDéplacer correspond à une forme, Le centre du cadre largeur/hauteur de la forme est positionné aux coordonnées indiquées et un objet Shape représentant la forme créée est renvoyé.

Si ObjetÀDéplacer est un objet Master, l'axe de la forme de base est positionné aux coordonnées indiquées. L'axe d'une forme de base coïncide souvent, mais pas toujours, avec son centre de rotation.

Si vous transmettez la valeur True pour le paramètre AppliquerGraphiqueDonnéesAprèsLiaison facultatif, Visio applique le graphique de données dernièrement appliqué aux autres formes du document actif.

Exemple

La macro Microsoft Visual Basic pour Applications (VBA) ci-dessous illustre comment utiliser la méthode DropLinked pour créer une forme sur la page de dessin active, centrée aux coordonnées de page (2, 2) et liée à une ligne de données du jeu d'enregistrements dernièrement ajouté au document actif.

La forme passée à la méthode DropLinked est un rectangle simple du gabarit Formes de base (unités US). 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 assurez-vous que le gabarit Formes de base (unités US) est ouvert dans la fenêtre de dessin Visio. Dans cet exemple, l’ID de la ligne de données est défini sur 1 ; avant d’exécuter le code, assurez-vous qu’une ligne avec cet ID existe ou modifiez la valeur d’ID dans le code.

Public Sub DropLinked_Example() 
 
    Dim vsoShape As Visio.Shape 
    Dim vsoMaster As Visio.Master 
    Dim dblX As Double 
    Dim dblY As Double  
    Dim lngDataRowID As Long 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim intRecordsetCount As Integer 
 
    intRecordsetCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intRecordsetCount) 
     
    Set vsoMaster = Visio.Documents("Basic_U.VSS").Masters("Rectangle") 
    dblX = 2 
    dblY = 2 
    lngDataRowID = 1 
 
    Set vsoShape = ActivePage.DropLinked(vsoMaster, dblX, dblY, vsoDataRecordset.ID, lngDataRowID, True) 
 
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