Méthode ShapeNodes.SetEditingType (Publisher)

Définit le type de modification du nœud spécifié. Si celui-ci est un point de contrôle d'un segment courbé, cette méthode définit le type de modification du nœud adjacent à celui qui joint deux segments. En fonction du type de modification, cette méthode peut affecter la position des nœuds adjacents.

Syntaxe

expression. SetEditingType (Index, EditingType)

Expression Variable qui représente un objet ShapeNodes .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Index	Obligatoire	Entier long	Nœud dont le type de modification doit être défini. Doit être un nombre compris entre 1 et le nombre de nœuds de la forme spécifiée ; dans le cas contraire, une erreur se produit.
EditingType	Obligatoire	MsoEditingType	Propriété de modification du nœud. Il peut s’agir de l’une des constantes MsoEditingType déclarées dans la bibliothèque de type Microsoft Office.

Exemple

Cet exemple change tous les nœuds d'angle en nœuds lisses dans la troisième forme de la composition active. La forme du dessin doit être libre.

Dim intNode As Integer 
 
With ActiveDocument.Pages(1).Shapes(3).Nodes 
 For intNode = 1 to .Count 
 If .Item(intNode).EditingType = msoEditingCorner Then 
 .SetEditingType _ 
 Index:=intNode, EditingType:=msoEditingSmooth 
 End If 
 Next intNode 
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.