返回介绍

SwapNode 方法

发布于 2019-10-04 14:08:13 字数 1098 浏览 1039 评论 0 收藏 0

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

expression.SwapNode(TargetNode, SwapChildren)

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

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

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

示例

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

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

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文