Dzwebs.Net

撰写电脑技术杂文十余年

VBA之AddNode 方法

Admin | 2015-3-5 10:55:41 | 被阅次数 | 7535

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  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


该杂文来自: PowerPoint杂文

上一篇:VBA之AddMediaObject 方法

下一篇:VBA错误代码列表

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计