Export (0) Print
Expand All

PrevNode Method

Office 2003

Returns a DiagramNode object that represents the previous diagram node in a collection of diagram nodes.


expression    Required. An expression that returns one of the objects in the Applies To list.


The following example adds additional child nodes to the first child node, which is the node previous to the second node, in a newly-created diagram.

Sub AddNodeToFirstChild()

    Dim dgnNode As DiagramNode
    Dim dgnPrev As DiagramNode
    Dim shpOrgChart As Shape
    Dim intNodes As Integer

    'Adds org chart and root node
    Set shpOrgChart = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramOrgChart, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    Set dgnNode = shpOrgChart.DiagramNode.Children.AddNode

    'Adds three child nodes to root node
    For intNodes = 1 To 3
    Next intNodes

    'Sets dgnPrev equal to first child node (the node
    'previous to the second child node)
    Set dgnPrev = dgnNode.Children.Item(2).PrevNode

    'Adds three child nodes to first child node
    For intNodes = 1 To 3
    Next intNodes

End Sub

Applies to | DiagramNode Object

© 2014 Microsoft