Nodes Property

Article
07/11/2006

Nodes property as it applies to the Diagram object.

Returns a DiagramNodes object that contains a flat list of all of the nodes in the specified diagram.

expression.Nodes

*expression * Required. An expression that returns a Diagram object.

Nodes property as it applies to the Shape and ShapeRange objects.

Returns a ShapeNodes collection that represents the geometric description of the specified shape. Applies to Shape or ShapeRange objects that represent freeform drawings.

expression.Nodes

*expression * Required. An expression that returns one of the above objects.

Example

As it applies to the Diagram object.

The following example returns the number of nodes in a newly-created diagram.

Sub ConvertPyramidDiagram()

    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intNodes As Integer

    'Create pyramid diagram and add first node
    Set shpDiagram = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramPyramid, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode

    'Add three child nodes to the first node
    For intNodes = 1 To 3
        dgnNode.AddNode
    Next intNodes

    'Automatically layout diagram and convert to radial diagram
    With dgnNode.Diagram
        .AutoLayout = msoTrue
        .Convert Type:=msoDiagramRadial
    End With

    'Display the number of nodes in the diagram
    MsgBox dgnNode.Diagram.Nodes.Count

End Sub

As it applies to the Shape object.

This example adds a smooth node with a curved segment after node four in shape three on myDocument. Shape three must be a freeform drawing with at least four nodes.

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3).Nodes
    .Insert Index:=4, SegmentType:=msoSegmentCurve, _
        EditingType:=msoEditingSmooth, X1:=210, Y1:=100
End With

Applies to | Diagram Object | Shape Object | ShapeRange Collection Object

Share via