PowerPoint VBA教程:SwapNode方法

交换源图示节点与目标图示节点。如果没有指定其他方式,所有图示子节点将随相应的根节点一起移动。

expression.SwapNode(TargetNode, SwapChildren)

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

TargetNode  必选。DiagramNode对象。目标图示节点。

SwapChildren  可选。Boolean 类型。如果所有图示子节点随相应的目标或源图示节点一起移动,则值为 True(默认值)。值为 False 时,则只交换目标图示节点与源图示节点,并使它们继承相互的图示子节点。

VBA示例

以下示例交换新建图示的第一个和第三个节点。


Sub SwapTwoNodes()
    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intNodes As Integer
    'Adds radial diagram and first node
    Set shpDiagram = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramRadial, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
    'Adds three additional nodes
    For intNodes = 1 To 3
        dgnNode.Children.AddNode
    Next intNodes
    'Swaps the first and the third nodes
    dgnNode.Children.Item(1).SwapNode _
        TargetNode:=dgnNode.Children.Item(3)
End Sub

上页:PowerPoint VBA教程:Split方法 下页:PowerPoint VBA教程:ToggleVerticalText方法

PowerPoint VBA教程:SwapNode方法

PowerPoint VBA教程:ToggleVerticalText方法 PowerPoint VBA教程:TransferChildren方法
PowerPoint VBA教程:TrimText方法 PowerPoint VBA教程:TwoColorGradient方法
PowerPoint VBA教程:Ungroup方法 PowerPoint VBA教程:Unselect方法
PowerPoint VBA教程:Update方法 PowerPoint VBA教程:UpdateLinks方法
PowerPoint VBA教程:UseDefaultFolderSuffix方法 PowerPoint VBA教程:UserPicture方法
PowerPoint VBA教程:UserTextured方法 PowerPoint VBA教程:Value方法
PowerPoint VBA教程:WebPagePreview方法 PowerPoint VBA教程:Words方法
PowerPoint VBA教程:ZOrder方法 PowerPoint VBA教程:ActionSetting对象
PowerPoint VBA教程:ActionSettings集合对象 PowerPoint VBA教程:AddIn对象
PowerPoint VBA教程:AddIns集合对象 PowerPoint VBA教程:Adjustments对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号