FreeformBuilder.AddNodes, méthode (PowerPoint)

Article
04/07/2023

Insère un nouveau segment à la fin de la forme libre en cours de création et ajoute les nœuds qui définissent ce segment. Utilisez cette méthode autant de fois que vous le souhaitez pour ajouter des nœuds à la forme libre que vous créez. Lorsque vous avez terminé d’ajouter des nœuds, utilisez la méthode ConvertToShape pour créer la forme libre que vous venez de définir. Pour ajouter des nœuds à une forme libre après sa création, utilisez la méthode Insert de la collection ShapeNodes .

Syntaxe

expression. AddNodes(SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)

Parameters

Nom	Requis/Facultatif	Type de données	Description
SegmentType	Obligatoire	MsoSegmentType	Type de segment à ajouter.
EditingType	Obligatoire	MsoEditingType	La propriété d'édition du sommet. Si l'argument SegmentType est msoSegmentLine, EditingType doit être msoEditingAuto.
X1	Obligatoire	Single	Si le paramètre EditingType du nouveau segment est msoEditingAuto, cet argument spécifie la distance horizontale (en points) entre le coin supérieur gauche du document au point de terminaison du nouveau segment. Si le paramètre EditingType du nouveau nœud est msoEditingCorner, cet argument spécifie la distance horizontale (en points) entre le coin supérieur gauche du document et le premier point de contrôle pour le nouveau segment.
Y1	Obligatoire	Single	Si le paramètre EditingType du nouveau segment est msoEditingAuto, cet argument spécifie la distance verticale (en points) entre le coin supérieur gauche du document au point de terminaison du nouveau segment. Si le paramètre EditingType du nouveau nœud est msoEditingCorner, cet argument spécifie la distance verticale (en points) entre le coin supérieur gauche du document et le premier point de contrôle pour le nouveau segment.
X2	Facultatif	Single	Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance horizontale (en points) entre le coin supérieur gauche du document et le deuxième point de contrôle pour le nouveau segment. Si le paramètre EditingType du nouveau segment est msoEditingAuto, ne spécifiez pas de valeur pour cet argument.
Y2	Facultatif	Single	Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance verticale (en points) entre le coin supérieur gauche du document et le deuxième point de contrôle pour le nouveau segment. Si le paramètre EditingType du nouveau segment est msoEditingAuto, ne spécifiez pas de valeur pour cet argument.
X3	Facultatif	Single	Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance horizontale (en points) entre le coin supérieur gauche du document au point de terminaison du nouveau segment. Si le paramètre EditingType du nouveau segment est msoEditingAuto, ne spécifiez pas de valeur pour cet argument.
Y3	Facultatif	Single	Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance verticale (en points) entre le coin supérieur gauche du document au point de terminaison du nouveau segment. Si le paramètre EditingType du nouveau segment est msoEditingAuto, ne spécifiez pas de valeur pour cet argument.

Exemple

Cet exemple montre comment ajouter une forme libre à cinq sommets dans la première diapositive de la présentation active.

Set myDocument = ActivePresentation.Slides(1) 
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 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

Objet FreeformBuilder

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