Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
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 .
Paramètres
| 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.