Méthode ShapeNodes.SetSegmentType (Publisher)

Définit le type de segment qui suit le nœud spécifié. Si le nœud est un point de contrôle d’un segment courbé, cette méthode définit le type de segment pour cette courbe ; le nombre total de nœuds peut être affecté par l’insertion ou la suppression de nœuds adjacents.

Syntaxe

expression. SetSegmentType (Index, SegmentType)

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 segment 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.
SegmentType	Obligatoire	MsoSegmentType	Spécifie le type de segment. Il peut s’agir de l’une des constantes MsoSegmentType déclarées dans la bibliothèque de type Microsoft Office.

Exemple

Cet exemple change tous les segments droits en segments courbés dans la troisième forme de la composition active. La forme du dessin doit être libre.

Dim intCount As Integer 
 
With ActiveDocument.Pages(1).Shapes(3).Nodes 
 intCount = 1 
 Do While intCount <= .Count 
 If .Item(intCount).SegmentType = msoSegmentLine Then 
 .SetSegmentType _ 
 Index:=intCount, SegmentType:=msoSegmentCurve 
 End If 
 intCount = intCount + 1 
 Loop 
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.