Partager via

Propriété ShapeNode.Points (Publisher)

  • Article

Cette propriété obtient les coordonnées x- et y- du nœud de forme. En lecture seule.

Syntaxe

expression. Points

Expression Variable qui représente un objet ShapeNode .

Remarques

Cette propriété est en lecture seule. Utilisez la méthode SetPosition pour définir l'emplacement du nœud.

Exemple

Cet exemple déplace le nœud deux de la forme un de la première page de la composition active de 200 points à droite et de 300 points vers le bas. Pour que cet exemple fonctionne, la forme un doit être un dessin de forme libre.

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