Reverse 属性

MsoTrue 翻转图表中的节点。MsoTriState 类型，可读写。

MsoTriState 可为以下 MsoTriState 常量之一。

msoCTrue 不用于本属性。

msoFalse 不改变图表节点。

msoTriStateMixed 不用于本属性。

msoTriStateToggle 不用于本属性。

msoTrue 翻转图表中的节点。

expression.Reverse

expression 必需。该表达式返回“应用于”列表中的对象之一。

示例

本示例创建一个棱锥图，翻转节点以便将棱锥图底部的节点置于顶部，并将顶部的节点置于底部。

Sub CreatePyramidDiagram()

    Dim shpDiagram As Shape
    Dim dgnNode As DiagramNode
    Dim intCount As Integer

    'Add pyramid diagram to the current document
    Set shpDiagram = ActiveSheet.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