PowerPoint VBA教程:MoveNode方法

在图示内移动节点及其任何子节点。

expression.MoveNode(TargetNode, Pos)

expression  必选。该表达式返回“应用于”列表中的对象之一。

TargetNode  必选。DiagramNode对象。要移动的源图示节点。

Pos  必选。MsoRelativeNodePosition 类型。相对于 TargetNode 指定添加节点的位置。

MsoRelativeNodePosition 可以是下列 MsoRelativeNodePosition 类型常数之一。
msoAfterLastSibling
msoAfterNode
msoBeforeFirstSibling
msoBeforeNode

VBA示例

以下示例将新建图示的第二个图示节点移动到第四个节点之后。


Sub MoveDiagramNode()
    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intCount As Integer
    'Add pyramid diagram to the current document
    Set shpDiagram = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramPyramid, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    'Add four child nodes to the pyramid diagram
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
    For intCount = 1 To 3
        dgnNode.AddNode
    Next intCount
    'Move the second node to after where the
    'fourth node is currently located.
    dgnNode.Diagram.Nodes(2).MoveNode _
        TargetNode:=dgnNode.Diagram.Nodes(4), _
        Pos:=msoAfterLastSibling
End Sub

上页:PowerPoint VBA教程:MoveBefore方法 下页:PowerPoint VBA教程:MoveTo方法

PowerPoint VBA教程:MoveNode方法

PowerPoint VBA教程:MoveTo方法 PowerPoint VBA教程:Name方法
PowerPoint VBA教程:NewWindow方法 PowerPoint VBA教程:Next方法
PowerPoint VBA教程:NextNode方法 PowerPoint VBA教程:OfflineConflict Method
PowerPoint VBA教程:OneColorGradient方法 PowerPoint VBA教程:Open方法
PowerPoint VBA教程:Paragraphs方法 PowerPoint VBA教程:Paste方法
PowerPoint VBA教程:PasteSpecial方法 PowerPoint VBA教程:Patterned方法
PowerPoint VBA教程:PickUp方法 PowerPoint VBA教程:Picture方法
PowerPoint VBA教程:Play方法 PowerPoint VBA教程:PointsToScreenPixelsX方法
PowerPoint VBA教程:PointsToScreenPixelsY方法 PowerPoint VBA教程:PresetDrop方法
PowerPoint VBA教程:PresetGradient方法 PowerPoint VBA教程:PresetTextured方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号