Objet ShapeNodes (PowerPoint)

Une collection de tous les modules de ShapeNode objets dans la forme libre.

Remarques

Chaque objet ShapeNode représente soit un noeud entre des segments dans une forme libre ou d'un point de contrôle pour un segment courbé d'une forme libre. Vous pouvez créer une forme libre manuellement ou à l’aide des méthodes BuildFreeformet ConvertToShape.

Exemple

Utilisez la propriété Nodes pour renvoyer la collection ShapeNodes. L'exemple suivant montre comment supprimer le nœud 4 de la forme 3 de myDocument. Pour que cet exemple fonctionne, la forme 3 doit être une forme libre comptant au moins quatre nœuds.

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes(3).Nodes.Delete 4

Utilisez la méthode Insertpour créer un nœud et l’ajouter à la collection ShapeNodes . L'exemple suivant montre comment placer un nœud lisse avec un segment courbé après le nœud 4 de la forme 3 de myDocument. Pour que cet exemple fonctionne, la forme 3 doit être une forme libre comptant au moins 4 nœuds.

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes(3).Nodes

    .Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100

End With

Utilisez Nœuds (index), où index est le numéro d’index du nœud, pour renvoyer un seul objet ShapeNode . Si le nœud 1 de la forme 3 de myDocument est un point d'angle, l'exemple suivant montre comment le transformer en point lisse. Pour que cet exemple fonctionne, la forme 3 doit être une forme libre.

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes(3)

    If .Nodes(1).EditingType = msoEditingCorner Then

        .Nodes.SetEditingType 1, msoEditingSmooth

    End If

End With

Voir aussi

Référence du modèle objet PowerPoint

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.