Note
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.
Insère un nouveau segment à la suite du nœud spécifié dans la forme libre.
Syntaxe
expression. Insert (Index, SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)
expression Variable qui représente un objet ShapeNodes .
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Index | Obligatoire | Long | Nœud après lequel le nouveau nœud doit être inséré. |
| SegmentType | Obligatoire | MsoSegmentType | Type de segment à ajouter. |
| EditingType | Obligatoire | MsoEditingType | Indique le type de modification prévu pour le sommet. |
| X1 | Obligatoire | Single | Si le paramètre EditingType du nouveau segment est msoEditingAuto, cet argument spécifie la distance horizontale (en points) entre le coin supérieur gauche du document au point de terminaison du nouveau segment. Si le paramètre EditingType du nouveau nœud est msoEditingCorner, cet argument spécifie la distance horizontale (en points) entre le coin supérieur gauche du document et le premier point de contrôle pour le nouveau segment. |
| Y1 | Obligatoire | Single | Si le paramètre EditingType du nouveau segment est msoEditingAuto, cet argument spécifie la distance verticale (en points) entre le coin supérieur gauche du document au point de terminaison du nouveau segment. Si le paramètre EditingType du nouveau nœud est msoEditingCorner, cet argument spécifie la distance verticale (en points) entre le coin supérieur gauche du document et le premier point de contrôle pour le nouveau segment. |
| X2 | Facultatif | Single | Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance horizontale (en points) entre le coin supérieur gauche du document et le deuxième point de contrôle pour le nouveau segment. Si le paramètre EditingType du nouveau segment est msoEditingAuto, ne spécifiez pas de valeur pour cet argument. |
| Y2 | Facultatif | Single | Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance verticale (en points) entre le coin supérieur gauche du document et le deuxième point de contrôle pour le nouveau segment. Si le paramètre EditingType du nouveau segment est msoEditingAuto, ne spécifiez pas de valeur pour cet argument. |
| X3 | Facultatif | Single | Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance horizontale (en points) entre le coin supérieur gauche du document au point de terminaison du nouveau segment. Si le paramètre EditingType du nouveau segment est msoEditingAuto, ne spécifiez pas de valeur pour cet argument. |
| Y3 | Facultatif | Single | Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance verticale (en points) entre le coin supérieur gauche du document au point de terminaison du nouveau segment. Si le paramètre EditingType du nouveau segment est msoEditingAuto, ne spécifiez pas de valeur pour cet argument. |
Remarques
La valeur du paramètre SegmentType peut être l’une de ces constantes MsoSegmentType.
| msoSegmentCurve |
| msoSegmentLine |
La valeur du paramètre EditingType peut être l’une de ces constantes MsoEditingType.
| msoEditingAuto |
| msoEditingCorner |
Exemple
Cet exemple montre comment ajouter un nœud lisse avec un segment courbé après le nœud 4 de la forme 3 dans myDocument. La forme 3 doit être un dessin à main levée comportant au moins quatre nœuds.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Nodes
.Insert Index:=4, SegmentType:=msoSegmentCurve, _
EditingType:=msoEditingSmooth, 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.