Shapes.BuildFreeform, méthode (Publisher)

Article
04/07/2023

Crée une forme libre. Renvoie un objet FreeformBuilder qui représente la forme libre en cours de génération.

Syntaxe

expression. BuildFreeform (EditingType, X1, Y1)

expression Variable qui représente un objet Shapes.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
EditingType	Obligatoire	MsoEditingType	Spécifie le type de modification du premier nœud. Il peut s’agir de l’une des constantes MsoEditingType déclarées dans la bibliothèque de type Microsoft Office.
X1	Obligatoire	Variant	Position horizontale du premier nœud dans la forme libre par rapport au coin supérieur gauche de la page.
Y1	Obligatoire	Variant	Position verticale du premier nœud dans la forme libre par rapport au coin supérieur gauche de la page.

Valeur renvoyée

FreeformBuilder

Exemple

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 »).

Utilisez la méthode AddNodes pour ajouter des segments à la forme libre. Après avoir ajouté au moins un segment à la forme libre, vous pouvez utiliser la méthode ConvertToShape pour convertir l’objet FreeformBuilder en objet Shape dont la description géométrique est définie dans l’objet FreeformBuilder .

' Add a new freeform object. 
With ActiveDocument.Shapes _ 
 .BuildFreeform(EditingType:=msoEditingCorner, _ 
 X1:=100, Y1:=100) 
 
 ' Add three more nodes and close the polygon. 
 .AddNodes SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingCorner, _ 
 X1:=200, Y1:=200, X2:=225, Y2:=250, X3:=250, Y3:=200 
 .AddNodes SegmentType:=msoSegmentCurve, _ 
 EditingType:=msoEditingAuto, X1:=200, Y1:=100 
 .AddNodes SegmentType:=msoSegmentLine, _ 
 EditingType:=msoEditingAuto, X1:=150, Y1:=50 
 .AddNodes SegmentType:=msoSegmentLine, _ 
 EditingType:=msoEditingAuto, X1:=100, Y1:=100 
 
 ' Convert the polygon to a Shape object. 
 .ConvertToShape 
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.

Partager via