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.
Définit l’emplacement du nœud spécifié par l’argument Index. Remarquez que, selon le type de modification du nœud, cette méthode peut modifier la position des nœuds adjacents.
Syntaxe
expression. SetPosition (Index, X1, Y1)
expression Variable qui représente un objet ShapeNodes .
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Index | Obligatoire | Entier long | Indique le nœud à positionner. |
| X1 | Obligatoire | Unique | Position (en points) du nouveau nœud par rapport au coin supérieur gauche du document. |
| Y1 | Obligatoire | Single | Position du nouveau nœud (en points) par rapport au coin supérieur gauche du document. |
Exemple
Cet exemple déplace le nœud deux de la forme trois sur myDocument de 200 points vers la droite et de 300 points vers le bas. La forme 3 doit être un dessin à main levée.
Set myDocument = Worksheets(1)
With myDocument.Shapes(3).Nodes
pointsArray = .Item(2).Points
currXvalue = pointsArray(0, 0)
currYvalue = pointsArray(0, 1)
.SetPosition 2, currXvalue + 200, currYvalue + 300
End With
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.