Partager via


Méthode ShapeNodes.SetPosition (Publisher)

Définit la position du nœud spécifié. En fonction du type de modification, cette méthode peut affecter la position des nœuds adjacents.

Syntaxe

expression. SetPosition (Index, X1, Y1)

Expression Variable qui représente un objet ShapeNodes .

Parameters

Nom Requis/Facultatif Type de données Description
Index Obligatoire Integer Nœud dont la position doit être définie. Doit être un nombre compris entre 1 et le nombre de nœuds de la forme spécifiée ; dans le cas contraire, une erreur se produit.
X1 Obligatoire Variant Position horizontale du nœud par rapport au coin supérieur gauche de la page.
Y1 Obligatoire Variant Position verticale du nœud par rapport au coin supérieur gauche de la page.

Remarques

Pour les arguments X1 et Y1 , les valeurs numériques sont évaluées en points ; les chaînes peuvent être dans n’importe quelle unité prise en charge par Microsoft Publisher (par exemple, « 2,5 pouces »).

Exemple

Cet exemple déplace de 200 points vers la droite et de 300 points vers le bas le deuxième nœud dans la troisième forme de la composition active. La forme du dessin doit être libre.

Dim arrPoints As Variant 
Dim intX As Integer 
Dim intY As Integer 
 
With ActiveDocument.Pages(1).Shapes(3).Nodes 
 arrPoints = .Item(2).Points 
 intX = arrPoints(1, 1) 
 intY = arrPoints(1, 2) 
 .SetPosition Index:=2, X1:=intX + 200, Y1:=intY + 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.