Question

全部显示

应用于DiagramNodeChildren 对象的 AddNode 方法。

向图示子节点集合中添加DiagramNode 对象。

expression.AddNode(Index)

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

Index可选。Variant 类型。添加新图示节点的索引位置；0 表示添加到所有节点之前；-1 表示添加到所有节点之后；任何其他 Index 表示添加到集合中该节点之后。

应用于DiagramNode 对象的 AddNode 方法。

返回一个 DiagramNode 对象，该对象代表一个添加到图示的节点。

expression.AddNode(Pos)

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

Pos可选。MsoRelativeNodePosition 类型。相对于调用节点指定添加节点的位置。

MsoRelativeNodePosition 可以是下列 MsoRelativeNodePosition 常数之一。

msoAfterLastSibling

msoAfterNode默认值

msoBeforeFirstSibling

msoBeforeNode

示例

下面示例将节点添加到一个新建的图示中。

Sub CreatePyramidDiagram()

    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intNodes As Integer

    'Adds the pyramid diagram and first node
    Set shpDiagram = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramPyramid, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode

    'Adds three more nodes to pyramid diagram
    For intNodes = 1 To 3
        dgnNode.AddNode
    Next intNodes

End Sub