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 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 | Propriété d'édition du premier nœud. |
| X1 | Obligatoire | Unique | Position horizontale, exprimée en points, du premier nœud de la forme libre par rapport au bord gauche de la diapositive. |
| Y1 | Obligatoire | Unique | Position verticale, exprimée en points, du premier nœud de la forme libre par rapport au bord supérieur de la diapositive. |
Valeur renvoyée
FreeformBuilder
Remarques
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 .
Exemple
Cet exemple montre comment ajouter une forme libre à quatre segments à myDocument.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.BuildFreeform(EditingType:=msoEditingCorner, _
X1:=360, Y1:=200)
.AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingCorner, _
X1:=380, Y1:=230, X2:=400, Y2:=250, X3:=450, Y3:=300
.AddNodes SegmentType:=msoSegmentCurve, EditingType:=msoEditingAuto, _
X1:=480, Y1:=200
.AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _
X1:=480, Y1:=400
.AddNodes SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, _
X1:=360, Y1:=200
.ConvertToShape
End With
Voir aussi
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.