向Excel插入图示组织结构图

dongdonggege

各位老师好：

向Excel插入图示，组织结果图，添加下属，助手。把子顶点从一个顶点移到另一个顶点，我想用VBA 程序解决，麻烦各位老师，谢谢。

dongdonggege

这个怎么搞，哪位老师帮我谢谢。

dongdonggege

今天这个审核到现在，我没有违禁啊！

赵桢0611

这是本坛老师的作品，供参考

dongdonggege

赵桢0611 发表于 2024-10-3 11:11
这是本坛老师的作品，供参考

谢谢，和我的要求，有些不同。

lss001

dongdonggege 发表于 2024-10-3 15:33
谢谢，和我的要求，有些不同。

上次提供的连接不具体
以下链接是2003office比较全面的结构图对象参考
https://learn.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa196435(v=office.11)

dongdonggege

lss001 发表于 2024-10-3 19:53
上次提供的连接不具体
以下链接是2003office比较全面的结构图对象参考
https://learn.microsoft.com/en ...

感谢老师，我也看到了相似的内容，这是添加下属，删除下属。但是添加助手，把一个子节点转移到另一个节点，不熟悉，网络也没有介绍。

lss001

dongdonggege 发表于 2024-10-4 00:24
感谢老师，我也看到了相似的内容，这是添加下属，删除下属。但是添加助手，把一个子节点转移到另一个节点 ...

'没有安装没安装office2003
'可帮忙测试以下移动节点代码

Sub MoveDiagramNode()

    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intCount As Integer

    'Add pyramid diagram to the current document
    Set shpDiagram = ActiveSheet.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 _
        pTargetNode:=dgnNode.Diagram.Nodes(4), _
        Pos:=msoAfterLastSibling

End Sub

dongdonggege

lss001 发表于 2024-10-4 07:32
'没有安装没安装office2003
'可帮忙测试以下移动节点代码

老师，最后一句，2003未找到命名参数，高版本的运行效果如何？

lss001

dongdonggege 发表于 2024-10-4 16:49
老师，最后一句，2003未找到命名参数，高版本的运行效果如何？

office365
不支持AddDiagram
只支持AddSmartArt

可以把参数名称去掉试试
dgnNode.Diagram.Nodes(2).MoveNode _
dgnNode.Diagram.Ndes(4), msoAfterLastSibling