Word VBA教程:MoveNode方法

移动图表顶点以及图表之内的子顶点。

expression.MoveNode(TargetNode, Pos)

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

TargetNode  DiagramNode对象,必需。将要移动指定顶点的图表顶点。

Pos  MsoRelativeNodePosition,必需。指定相对于 TargetNode,要添加顶点的位置。

MsoRelativeNodePosition 可以是下列 MsoRelativeNodePosition 常量之一:
msoAfterLastSibling
msoAfterNode
msoBeforeFirstSibling
msoBeforeNode

VBA示例

下列示例将新创建的图表的第二个顶点移到最后一个顶点。


Sub MoveDiagramNode()
    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    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 four child nodes to the pyramid diagram
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
    For intCount = 1 To 3
        dgnNode.AddNode
    Next intCount
    'Move the second node after the fourth node
    dgnNode.Diagram.Nodes(2).MoveNode _
        TargetNode:=dgnNode.Diagram.Nodes(4), _
        Pos:=msoAfterLastSibling
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号