Classe ShapeNodes (Excel VBA)
Une collection de tous les modules de ShapeNode objets dans la forme libre. Pour utiliser une variable de classe ShapeNodes, elle doit d'abord être instanciée, par exemple
Dim sns as ShapeNodes
Set sns = Application.ActiveChart.OLEObjects.ShapeRange
Count
Cette propriété renvoie une valeur Integer qui représente le nombre d'objets de la collection.
Dim lngCount As Long
lngCount = ActiveChart.OLEObjects.ShapeRange.Nodes.Count
Delete
Cette méthode supprime l'objet.
Delete (Index)
Index: Index de l'objet à supprimer.
Dim lngIndex As Long: lngIndex =
ActiveChart.OLEObjects.ShapeRange.Nodes.Delete Index:=lngIndex
Insert
Insère un nœud dans une forme libre.
Insert (Index, SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)
Dim lngIndex As Long: lngIndex =
ActiveChart.OLEObjects.ShapeRange.Nodes.Insert Index:=lngIndex, SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, X1:=, Y1:=
Arguments
Les arguments nommés :
Index (Long) - Numéro du nœud de la forme après laquelle un nouveau nœud doit être inséré.
SegmentType (Office.MsoSegmentType) - Type de segment.
EditingType (Office.MsoEditingType) - Type de modification.
X1 (Single) - 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 jusqu’au point de fin 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 (Single) - 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 jusqu’au point de fin 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.
Optional arguments
Les arguments suivants sont facultatifs
X2 (Single) - 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 jusqu’au second 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 (Single) - 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 jusqu’au second 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 (Single) - 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 jusqu’au point de fin du nouveau segment. Si l'argument EditingType du nouveau segment a la valeur msoEditingAuto, ne spécifiez pas de valeur pour cet argument.
Y3 (Single) - 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 jusqu’au point de fin du nouveau segment. Si l'argument EditingType du nouveau segment a la valeur msoEditingAuto, ne spécifiez pas de valeur pour cet argument.
Item
Cette méthode renvoie un seul objet d'une collection.
Item (Index)
Index: Nom ou numéro d'index de l'objet.
Dim shpn As ShapeNode
Set shpn = ActiveChart.OLEObjects.ShapeRange.Nodes(Index:=1)
SetEditingType
Cette méthode définit le type de modification du nœud spécifié par Index. Si le nœud est un point de commande d’un segment courbé, cette méthode définit le type de modification du nœud adjacent à celui qui joint deux segments. Notez que, selon le type de modification, cette méthode peut modifier la position des noeuds adjacents.
SetEditingType (Index, EditingType)
Dim lngIndex As Long: lngIndex =
ActiveChart.OLEObjects.ShapeRange.Nodes.SetEditingType Index:=lngIndex, EditingType:=msoEditingAuto
Arguments
Les arguments nommés :
Index (Long) - Indique le nœud dont le type de modification doit être défini.
EditingType (Office.MsoEditingType) - Propriété d'édition du sommet.
SetPosition
Définit l’emplacement du nœud spécifié par l’argument Index. Remarquez que, selon le type de modification du nœud, cette méthode peut modifier la position des nœuds adjacents.
Dim lngIndex As Long: lngIndex =
ActiveChart.OLEObjects.ShapeRange.Nodes.SetPosition Index:=lngIndex, X1:=, Y1:=
Arguments
Les arguments nommés :
Index (Long) - Indique le nœud à positionner.
X1 (Single) - Position (en points) du nouveau nœud par rapport au coin supérieur gauche du document.
Y1 (Single) - Position du nouveau nœud (en points) par rapport au coin supérieur gauche du document.
SetSegmentType
Définit le type de segment qui suit le nœud spécifié par Index. S'il s'agit d'un point de contrôle d'un segment de courbe, la méthode détermine le type de segment pour ce segment de courbe. Notez que l'insertion ou la suppression de nœuds adjacents peut modifier le nombre total de nœuds.
SetSegmentType (Index, SegmentType)
Dim lngIndex As Long: lngIndex =
ActiveChart.OLEObjects.ShapeRange.Nodes.SetSegmentType Index:=lngIndex, SegmentType:=msoSegmentLine
Arguments
Les arguments nommés :
Index (Long) - Indique le nœud dont le type de segment doit être déterminé.
SegmentType (Office.MsoSegmentType) - Spécifie si le segment est droit ou courbé.