Partager via

Méthode ShapeNodes.Insert (Excel)

  • Article

Insère un nœud dans une 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 de la forme après laquelle un nouveau nœud doit être inséré.
SegmentType Obligatoire MsoSegmentType Type de segment.
EditingType Obligatoire MsoEditingType Type de modification.
X1 Obligatoire Unique Si le paramètre EditingType du nouveau segment est msoEditingAuto, cet argument spécifie la distance horizontale, exprimée en points, entre le coin supérieur gauche du document et le point de terminaison du nouveau segment.

Si l'argument EditingType du nouveau nœud est msoEditingCorner, cet argument indique la distance horizontale, mesurée en points, du coin supérieur gauche du document au premier point de contrôle du nouveau segment.
Y1 Obligatoire Unique Si le paramètre EditingType du nouveau segment est msoEditingAuto, cet argument spécifie la distance verticale, exprimée en points, entre le coin supérieur gauche du document et le point de terminaison du nouveau segment.

Si l'argument EditingType du nouveau nœud est msoEditingCorner, cet argument indique la distance horizontale, mesurée en points, du coin supérieur gauche du document au premier point de contrôle du nouveau segment.
X2 Obligatoire Unique Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance horizontale, exprimée en points, entre le coin supérieur gauche du document 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 Obligatoire Unique Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance verticale, exprimée en points, entre le coin supérieur gauche du document 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 Obligatoire Unique Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance horizontale, exprimée en points, entre le coin supérieur gauche du document 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 Obligatoire Unique Si le paramètre EditingType du nouveau segment est msoEditingCorner, cet argument spécifie la distance verticale, exprimée en points, entre le coin supérieur gauche du document 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.

Exemple

Cet exemple montre comment sélectionne la troisième forme du document actif, vérifie si la forme est un objet Freeform, et si c'est le cas, insérer un nœud. Cet exemple suppose qu'il existe trois formes dans la feuille de calcul active.

Sub InsertShapeNode() 
    ActiveSheet.Shapes(3).Select 
    With Selection.ShapeRange 
        If .Type = msoFreeform Then 
            .Nodes.Insert _ 
                Index:=3, SegmentType:=msoSegmentCurve, _ 
                EditingType:=msoEditingSymmetric, X1:=35, Y1:=100 
            .Fill.ForeColor.RGB = RGB(0, 0, 200) 
            .Fill.Visible = msoTrue 
        Else 
            MsgBox "This shape is not a Freeform object." 
        End If 
    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.