PowerPoint VBA教程:TransferChildren方法

将一个图示节点的子节点移动到另一个图示节点。

expression.TransferChildren(ReceivingNode)

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

ReceivingNode  必选。DiagramNode对象。目标(接收的)图示节点。

VBA示例

以下示例将新建图示中第一个节点的子节点传送到第三个节点。


Sub TransferChildNodes()
    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intNodes As Integer
    'Adds org chart and root node
    Set shpDiagram = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramOrgChart, Left:=10, _
        Top:=15, Width:=400, Height:=475)
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
    'Adds three child nodes to root node
    For intNodes = 1 To 3
        dgnNode.Children.AddNode
    Next intNodes
    'Adds three child nodes to first child node
    For intNodes = 1 To 3
        dgnNode.Children.Item(1).Children.AddNode
    Next intNodes
    ' Transfers children of the first node to the third node
    dgnNode.Children.Item(1).TransferChildren _
        ReceivingNode:=dgnNode.Children.Item(3)
End Sub

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

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对象
PowerPoint VBA教程:AnimationBehavior对象 PowerPoint VBA教程:AnimationBehaviors集合
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号