大众计算机学习网欢迎诸位!收藏本站注 册登 陆
常用教程:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 教程 > 文章页

VBA之AddNode 方法

Admin | 2015-3-5 10:55:41 | ReadNums | 2867 | 标签 PowerPoint教程 | 打印本页
     

  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


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日