Classe ShapeNode (PowerPoint 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 = ActiveWindow.RangeFromPoint.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

Méthodes

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

ShapeNodes.Delete - Cette méthode supprime le nœud d’une forme.

Dim lngIndex As Long: lngIndex = 
ActiveWindow.RangeFromPoint.Nodes.Delete Index:=lngIndex

Autre Méthodes

ShapeNodes.Insert - Insère un nouveau segment à la suite du nœud spécifié dans la forme libre.

Dim lngIndex As Long: lngIndex = 
ActivePresentation.Slides(1).Shapes(1).Nodes.Insert Index:=lngIndex, SegmentType:=msoSegmentLine, EditingType:=msoEditingAuto, X1:=210, Y1:=100

ShapeNodes.SetEditingType - Définit le type de modification du nœud spécifié.

Dim lngIndex As Long: lngIndex = 
ActivePresentation.Slides(1).Shapes(1).Nodes.SetEditingType Index:=lngIndex, EditingType:=msoEditingAuto

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.

Dim lngIndex As Long: lngIndex = 
ActivePresentation.Slides(1).Shapes(1).Nodes.SetPosition Index:=lngIndex, X1:=210, Y1:=100

ShapeNodes.SetSegmentType - Définit le type de segment qui suit le nœud spécifié.

Dim lngIndex As Long: lngIndex = 
ActivePresentation.Slides(1).Shapes(1).Nodes.SetSegmentType Index:=lngIndex, SegmentType:=msoSegmentLine

Propriétés

EditingType Si le nœud spécifié est un sommet, cette propriété renvoie une valeur indiquant de quelle manière les modifications apportées au nœud affectent les deux segments connectés au nœud. Si le nœud est un point de contrôle pour un segment courbé, cette propriété renvoie le type d’édition du sommet adjacent. En lecture seule.

Dim metEditingType As Office.MsoEditingType
metEditingType = ActivePresentation.Slides(1).Shapes(1).Nodes(1).EditingType

Parent Renvoie l’objet parent de l’objet spécifié.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Nodes(1).Parent

Points Renvoie une valeur de type Variant qui représente la position du nœud spécifié sous forme d’une paire de coordonnées. En lecture seule.

Dim pointsArray As vARIANT
pointsArray = ActivePresentation.Slides(1).Shapes(1).Nodes(1).Points

SegmentType Renvoie une valeur qui indique si le segment associé au nœud spécifié est un segment de droite ou de courbe. En lecture seule.

Dim mstSegmentType As Office.MsoSegmentType
mstSegmentType = ActivePresentation.Slides(1).Shapes(1).Nodes(1).SegmentType

ShapeNodes.Count Renvoie le nombre d'objets de la collection spécifiée. En lecture seule.

Dim lngCount As Long
lngCount = ActiveWindow.RangeFromPoint.Nodes.Count

ShapeNodes.Parent Renvoie l’objet parent de l’objet spécifié.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.Nodes.Parent