AddNode 方法

应用于 DiagramNodeChildren 对象的 AddNode 方法。

创建图表节点。返回一个 DiagramNode 对象，该对象代表新节点。

expression.AddNode(Index, nodeType)

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

Index Variant 类型，可选。节点的位置。

nodeType MsoDiagramNodeType 类型，可选。节点的类型。

MsoDiagramNodeType 可为以下 MsoDiagramNodeType 常量之一。

msoDiagramAssistant

msoDiagramNode 默认值

应用于 DiagramNode 对象的 AddNode 方法。

创建图表节点。返回一个 DiagramNode 对象，该对象代表新节点。DiagramNode 对象。

expression.AddNode(pos, nodeType)

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

pos MsoRelativeNodePosition 类型，可选。相对于其他节点添加节点的位置。

MsoRelativeNodePosition 可为以下 MsoRelativeNodePosition 常量之一。

msoAfterLastSibling

msoAfterNode 默认值

msoBeforeFirstSibling

msoBeforeNode

nodeType MsoDiagramNodeType 类型，可选。节点的类型。

MsoDiagramNodeType 可为以下 MsoDiagramNodeType 常量之一。

msoDiagramAssistant

msoDiagramNode 默认值

示例

本示例向活动工作表中的图表节点添加一个节点。

Sub DiagramNodeOBJ()

        Dim nodDiagNode As DiagramNode
        Dim shDiagram As Shape

        Set shDiagram = ActiveSheet.Shapes.AddDiagram _
            (Type:=msoDiagramOrgChart, _
            Left:=10, _
            Top:=15, _
            Width:=400, _
            Height:=475)

        Set nodDiagNode = shDiagram.DiagramNode

        'Add a root node to the diagram.
        nodDiagNode.Children.AddNode

End Sub