Note
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.
Représente la géométrie d’une forme libre en cours de création.
Exemple
Utilisez la méthode BuildFreeformpour renvoyer un objet FreeformBuilder . Utilisez la méthode AddNodespour ajouter des nœuds au freefrom. Utilisez la méthode ConvertToShapepour créer la forme définie dans l’objet FreeformBuilder et l’ajouter à la collection Shapes . L'exemple suivant montre comment ajouter une forme libre composée de 4 segments à myDocument.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
.AddNodes msoSegmentCurve, msoEditingCorner, _
380, 230, 400, 250, 450, 300
.AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
.AddNodes msoSegmentLine, msoEditingAuto, 480, 40
.AddNodes msoSegmentLine, msoEditingAuto, 360, 200
.ConvertToShape
End With
Voir aussi
Référence du modèle objet PowerPoint
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.