Word VBA教程:AddNode方法

应用于 DiagramNodeChildren对象的 AddNode方法。

将一个DiagramNode对象添加到子图表顶点的集合。

expression.AddNode(Index)

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

Index  Variant 类型,可选。添加新图表顶点的索引位置:如果该参数为 0,则添加在所有顶点之前,如果该参数为 -1,则添加在所有顶点之后,若为其他 Index 数值,则添加在集合中相应的顶点之后。

应用于 DiagramNode对象的 AddNode方法。

创建一个图表顶点,返回代表新图表顶点的 DiagramNode对象。对于概念图表,将 DiagramNode对象添加到图形列表的末尾。

expression.AddNode(Pos)

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

Pos  MsoRelativeNodePosition,可选。指定要添加的相对于引出点的顶点位置。

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

VBA示例

当应用于 DiagramNodeChildren对象时。

本示例在当前文档中添加棱锥图表,并将三个顶点添加到图表。


Sub CreatePyramidDiagram()
    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 first diagram node child to the pyramid diagram
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
    'Add three more diagram node children to the pyramid diagram
    For intCount = 1 To 3
        dgnNode.AddNode
    Next intCount
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号