PrevNode 方法 - Microsoft Excel Visual Basic 2002 参考

返回介绍

PrevNode 方法

发布于 2019-08-07 字数 1235 浏览 824 评论 0

返回一个 DiagramNode 对象,该对象代表图表节点集合中的上一个图表节点。

expression.PrevNode

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

示例

本示例在一张新创建的图表中向第一个子节点添加附加子节点。

Sub AddToPrevNode()
    Dim dgnRoot As DiagramNode
    Dim shpDiagram As Shape
    Dim dgnPrev As DiagramNode
    Dim intCount As Integer
    'Add organizational chart to the current document
    Set shpDiagram = ActiveSheet.Shapes.AddDiagram( _
        Type:=msoDiagramOrgChart, _
        Left:=10, _
        Top:=15, _
        Width:=400, _
        Height:=475)
    'Add first diagram node
    Set dgnRoot = shpDiagram.DiagramNode.Children.AddNode
    'Add three child nodes off the first diagram node
    For intCount = 1 To 3
        dgnRoot.Children.AddNode
    Next intCount
    'Access the node immediately preceeding
    'the second diagram node
    Set dgnPrev = dgnRoot.Children.Item(2).PrevNode
    'Add three child nodes to the node immediately
    'preceeding the second node
    For intCount = 1 To 3
        dgnPrev.Children.AddNode
    Next intCount
End Sub

上一篇:Previous 方法

下一篇:PrintOut 方法

发布评论

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

支持 Markdown 语法,需要帮助?

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