Partager via

Objet FreeformBuilder (PowerPoint)

  • Article

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.