ShapeNodes.Insert, méthode (Publisher)
Cette méthode insère un nouveau segment après le nœud spécifié de la forme libre.
Syntaxe
expression. Insert (Index, SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)
Expression Variable qui représente un objet ShapeNodes .
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Index | Obligatoire | Entier long | Numéro du nœud après lequel le nouveau nœud doit être inséré. |
| SegmentType | Obligatoire | MsoSegmentType | Type de segment à ajouter. Il peut s’agir de l’une des constantes MsoSegmentType . |
| EditingType | Obligatoire | MsoEditingType | Type d’édition du nouveau nœud. Il peut s’agir de l’une des constantes MsoEditingType . |
| X1 | Obligatoire | Variant | Si le paramètre EditingType du nouveau segment est msoEditingAuto, cet argument spécifie la distance horizontale entre le coin supérieur gauche de la page et le point de terminaison du nouveau segment. Si le paramètre EditingType du nouveau nœud est msoEditingCorner, cet argument spécifie la distance horizontale entre le coin supérieur gauche de la page et le premier point de contrôle du nouveau segment. |
| Y1 | Obligatoire | Variant | Si le paramètre EditingType du nouveau segment est msoEditingAuto, cet argument spécifie la distance verticale entre le coin supérieur gauche de la page et le point de terminaison du nouveau segment. Si le paramètre EditingType du nouveau nœud est msoEditingCorner, cet argument spécifie la distance verticale entre le coin supérieur gauche de la page et le premier point de contrôle du nouveau segment. |
| X2 | Facultatif | Variant | Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance horizontale entre le coin supérieur gauche de la page et le deuxième point de contrôle du nouveau segment. Si l'argument EditingType du nouveau segment a la valeur msoEditingAuto, ne spécifiez pas de valeur pour cet argument. |
| Y2 | Facultatif | Variant | Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance verticale entre le coin supérieur gauche de la page et le deuxième point de contrôle du nouveau segment. Si l'argument EditingType du nouveau segment a la valeur msoEditingAuto, ne spécifiez pas de valeur pour cet argument. |
| X3 | Facultatif | Variant | Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance horizontale entre le coin supérieur gauche de la page et le point de terminaison du nouveau segment. Si l'argument EditingType du nouveau segment a la valeur msoEditingAuto, ne spécifiez pas de valeur pour cet argument. |
| Y3 | Facultatif | Variant | Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance verticale entre le coin supérieur gauche de la page et le point de terminaison du nouveau segment. Si l'argument EditingType du nouveau segment a la valeur msoEditingAuto, ne spécifiez pas de valeur pour cet argument. |
Remarques
Pour les arguments X1, Y1, X2, Y2, X3 et Y3 , les valeurs numériques sont évaluées en points ; les chaînes peuvent être dans n’importe quelle unité prise en charge par Publisher (par exemple, « 2,5 pouces »).
Exemple
Cet exemple ajoute un nœud lissé à un segment courbé après le nœud quatre de la troisième forme de la composition active. La forme doit être un dessin de forme libre avec au moins quatre nœuds.
With ActiveDocument.Pages(1).Shapes(3).Nodes
.Insert Index:=4, _
SegmentType:=msoSegmentCurve, _
EditingType:=msoEditingAuto, _
X1:=210, Y1:=100
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.