Propriété ShapeNode.SegmentType (Publisher)

Renvoie une constante MsoSegmentType qui indique si le segment associé au nœud spécifié est droit ou courbe. En lecture seule.

Syntaxe

expression. SegmentType

Expression Variable qui représente un objet ShapeNode .

Valeur renvoyée

MsoSegmentType

Remarques

La valeur de la propriété SegmentType peut être l’une des constantes MsoSegmentType déclarées dans la bibliothèque de type Microsoft Publisher.

Si le nœud spécifié est le point de contrôle d'un segment de courbe, la propriété renvoie msoSegmentCurve.

Utilisez la méthode SetSegmentType pour définir la valeur de cette propriété.

Exemple

Cet exemple change tous les segments droits en segments courbés dans la première forme de la première page de la composition active. Pour que cet exemple fonctionne, la forme spécifiée doit être un dessin de forme libre.

Sub ChangeSegmentTypes() 
 Dim intNode As Integer 
 With ActiveDocument.Pages(1).Shapes(1).Nodes 
 intNode = 1 
 Do While intNode <= .Count 
 If .Item(intNode).SegmentType = msoSegmentLine Then 
 .SetSegmentType Index:=intNode, _ 
 SegmentType:=msoSegmentCurve 
 End If 
 intNode = intNode + 1 
 Loop 
 End With 
End Sub

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.