Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Crée un ou plusieurs objets Shape en déposant un objet sur un objet récepteur tel qu’un master, une page de dessin, une forme ou un groupe.
Syntaxe
expression. Drop (ObjectToDrop, xPos, yPos)
expression Une variable qui représente uneForme d’objet.
Paramètres
| 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 | Obligatoire | Double | Coordonnée x où placer le centre de la largeur de la forme ou PinX. |
| yPos | Obligatoire | 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 supprimé ( ObjectToDrop) peut être un master 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. 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.
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.