Reverse 属性 - Microsoft Excel Visual Basic 2002 参考

返回介绍

Reverse 属性

发布于 2019-08-07 字数 1584 浏览 881 评论 0

全部显示

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

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!