Word VBA教程:Reverse属性

如果该属性的值为 MsoTrue,则反转图表中的节点。MsoTriState,可读写。

MsoTriState 可以是下列 MsoTriState 常量之一:
msoCTrue 不应用于该属性。
msoFalse 不改变图表节点。
msoTriStateMixed 不应用于该属性。
msoTriStateToggle 不应用于该属性。
msoTrue 反转图表中的节点。

expression.Reverse

expression   必需。该表达式返回一个Diagram对象。

VBA示例

以下示例创建一个棱锥图表并反转节点,这样原来在棱锥底部的节点变到顶部,而在顶部的节点变到底部。


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号