Show All

Reverse Property

MsoTrue reverses the nodes in a diagram. Read/write MsoTriState.

expression   Required. An expression that returns a Diagram object.

Example

The following example creates a pyramid diagram and reverses the nodes so the node that was on the bottom of the pyramid is on the top and the node that was on the top is on the bottom.

Sub CreatePyramidDiagram()
    Dim shpDiagram As Shape
    Dim dgnNode As DiagramNode
    Dim intCount As Integer

    'Add pyramid diagram to the current document
    Set shpDiagram = ThisDocument.Shapes.AddDiagram _
        (Type:=msoDiagramPyramid, Left:=10, _
        Top:=15, Width:=400, Height:=475)

    'Add first child node to the diagram
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode

    'Add three child nodes
    For intCount = 1 To 3
        dgnNode.AddNode
    Next intCount

    With dgnNode.Diagram

        'Enable automatic formatting
        .AutoFormat = msoTrue

        'Reverse the order of the nodes
        .Reverse = msoTrue
    End With
End Sub