Word VBA教程:CloneNode方法

复制指定图表的顶点。返回一个代表该顶点的DiagramNode对象。

expression.CloneNode(copyChildren, TargetNode, Pos)

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

copyChildren  Boolean 类型,必需。如果该参数值为 True,则同时复制图表顶点的子顶点。

TargetNode  DiagramNode对象,可选。放置新顶点的顶点。

Pos  MsoRelativeNodePosition,可选。如果指定 TargetNode,则表示相对于 TargetNode 添加顶点的位置。

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

VBA示例

以下示例创建一个图表并复制最近创建的顶点。


Sub CreatePyramidDiagram()
    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intCount As Integer
    'Add pyramid diagram to current document
    Set shpDiagram = ThisDocument.Shapes.AddDiagram( _
        Type:=msoDiagramPyramid, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    'Add child node to the diagram
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
    For intCount = 1 To 3
        dgnNode.AddNode
    Next intCount
    'Apply automatic formatting to the diagram
    dgnNode.Diagram.AutoFormat = msoTrue
    'Clone the most recently created child node
    dgnNode.CloneNode CopyChildren:=False
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号