全部显示

Reverse 属性

       

设置或返回 MsoTriState 类型常数,该常数代表图示的反向状态。可读写。

expression.Reverse

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

说明

如果目标图示的 Type 属性是组织结构图(msoDiagramTypeOrgChart 类型),此方法将产生错误。

示例

以下示例创建一个棱锥图,并将该图示的顺序反转。

Sub ReversePyramidDiagram()

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

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

    'Adds three additional nodes to diagram
    For intNodes = 1 To 3
        dgnNode.AddNode
    Next intNodes

    'Automatically places nodes, and reverses node order
    With dgnNode.Diagram
        .AutoLayout = msoTrue
        .Reverse = msoTrue
    End With

End Sub