Classe ShapeNode (Excel VBA)

Cet objet représente la géométrie et les propriétés de modification de la géométrie des nœuds d'une forme libre définie par l'utilisateur.

La procédure principale de la classe ShapeNode est ShapeNodes.Delete

Set

Pour utiliser une variable de classe ShapeNode, elle doit d'abord être instanciée, par exemple

Dim shpn as ShapeNode
Set shpn = ActiveChart.OLEObjects.ShapeRange.Nodes(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe ShapeNode : ShapeNodes.Item, Shape.Nodes et ShapeRange.Nodes

For Each

Voici un exemple de traitement des éléments ShapeNode dans une collection

Dim shpnNode As ShapeNode
For Each shpnNode In ActiveChart.OLEObjects.ShapeRange.Nodes
	
Next shpnNode

Méthodes

C'est la méthode principale de la classe ShapeNode

ShapeNodes.Delete - Cette méthode supprime l'objet.

Dim lngIndex As Long: lngIndex = 
ActiveChart.OLEObjects.ShapeRange.Nodes.Delete Index:=lngIndex

Autre Méthodes

ShapeNodes.Insert - Insère un nœud dans une forme libre.

ShapeNodes.Item - Cette méthode renvoie un seul objet d'une collection.

ShapeNodes.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.

ShapeNodes.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.

ShapeNodes.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.

Propriétés

EditingType Si le nœud spécifié est un sommet, cette propriété renvoie une valeur qui indique comment les modifications apportées au nœud affectent les deux segments connectés au nœud. En lecture seule MsoEditingType.

Dim metEditingType As Office.MsoEditingType
metEditingType = ActiveChart.OLEObjects.ShapeRange.Nodes(1).EditingType

Parent Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

Dim objParent As Object
Set objParent = ActiveChart.OLEObjects.ShapeRange.Nodes(1).Parent

Points Renvoie la position du nœud spécifié en tant qu'une paire de coordonnées. Chaque coordonnée est exprimée en points. Type de données Variant en lecture seule.

Dim lngPoints As Long
lngPoints = ActiveChart.OLEObjects.ShapeRange.Nodes(1).Points

SegmentType Cette propriété renvoie une valeur qui indique si le segment associé au nœud spécifié est un segment de droite ou de courbe. Si le nœud spécifié est le point de contrôle d'un segment de courbe, la propriété renvoie msoSegmentCurve. En lecture seule MsoSegmentType.

Dim mstSegmentType As Office.MsoSegmentType
mstSegmentType = ActiveChart.OLEObjects.ShapeRange.Nodes(1).SegmentType

ShapeNodes.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

ShapeNodes.Parent Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

Dim objParent As Object
Set objParent = ActiveChart.OLEObjects.ShapeRange.Nodes.Parent