Page.Drop, méthode (Visio)

Article
04/07/2023

Crée un ou plusieurs objets Shape en déposant un objet sur un objet récepteur tel qu’une forme de base, une page de dessin, une forme ou un groupe.

Syntaxe

expression. Drop (ObjectToDrop, xPos, yPos)

Expression Variable qui représente un objet Page .

Parameters

Nom	Requis/Facultatif	Type de données	Description
ObjectToDrop	Requis	[UNKNOWN]	Objet ou sélection à déplacer. S'il s'agit généralement d'un objet Visio comme un objet Master, Shape ou Selection, cela peut également être un objet OLE fournissant une interface IDataObject.
xPos	Requis	Double	Coordonnée x où placer le centre de la largeur de la forme ou PinX.
yPos	Requis	Double	Coordonnée y où placer le centre de la hauteur de la forme ou PinY.

Valeur renvoyée

Shape

Remarques

La méthode Drop revient à déplacer une forme à l'aide de la souris. L'objet déplacé (ObjetÀDéplacer) peut être une forme de base ou une forme sur la page de dessin.

Pour ajouter une forme à un groupe ou sur une page de dessin, appliquez respectivement la méthode Drop à un objet Shape ou Page. 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é. En appliquant cette méthode à un objet Shape, veillez à ce que cet objet Shape représente un groupe.

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

Si votre solution Visual Studio inclut la référence Microsoft.Office.Interop.Visio , cette méthode correspond aux types suivants :

Microsoft.Office.Interop.Visio.IVPage.Drop(object, double, double)

Exemple

L'exemple suivant indique comment utiliser la méthode Drop pour déplacer des formes vers des objets Page et Shape.

 
Public Sub Drop_Example() 
  
    Dim vsoShape1 As Visio.Shape  
    Dim vsoShape2 As Visio.Shape  
    Dim vsoShape3 As Visio.Shape  
    Dim vsoGroupShape As Visio.Shape  
    Dim vsoSubShape As Visio.Shape  
    Dim vsoSelection As Visio.Selection 
  
    Set vsoShape1 = ActivePage.DrawRectangle(1, 2, 2, 1)  
    Set vsoShape2 = ActivePage.DrawRectangle(1, 4, 2, 3)  
 
    'Drop a shape on the page.  
    Set vsoShape3 = ActivePage.Drop(vsoShape1, 3.5, 3.5)  
 
    'Make sure only one shape is selected to start.  
    Set vsoSelection = ActiveWindow.Selection 
    vsoSelection.Select vsoShape1, visDeselectAll + visSelect  
    vsoSelection.Select vsoShape2, visSelect  
 
    'Create a group shape.  
    Set vsoGroupShape = vsoSelection.Group  
 
    'Drop a shape on the group shape to create a new subshape.  
    Set vsoSubShape = vsoGroupShape.Drop(vsoShape3, 1, 2)  
 
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