使用VBA在Excel SmartArt中添加msoSmartArtNodeTypeAssistant节点失效问题

问题原因 #

1. 对象赋值语法错误：VBA中对对象类型变量赋值必须使用Set关键字，原代码直接写saNode = ...仅会读取对象默认属性，无法正确持有节点引用，导致新增节点丢失父级关联被放到顶层。
2. 测试代码语法错误：原测试代码中If判断块内多写了冗余的Next关键字，循环和判断的嵌套逻辑混乱，代码无法正常执行。
3. 参数组合兼容性问题：部分Office版本中，AddNode方法同时传入msoSmartArtNodeBelow和msoSmartArtNodeTypeAssistant两个参数的组合存在兼容性缺陷，无法正确关联父节点。

解决方法 #

使用先创建普通下属节点、再修改节点类型的兼容写法，同时修正语法错误，示例代码如下：

Sub AddAssistantNode()
    Dim MyOrgChart As Shape
    Dim saNode As SmartArtNode
    Dim targetParentNode As SmartArtNode
    
    For Each MyOrgChart In ActiveSheet.Shapes
        If MyOrgChart.HasSmartArt Then
            ' AllNodes索引从1开始，此处取第3个节点作为助理的所属上级
            Set targetParentNode = MyOrgChart.SmartArt.AllNodes(3)
            ' 先新增普通下属节点
            Set saNode = targetParentNode.AddNode(msoSmartArtNodeBelow)
            ' 修改节点类型为助理，兼容性更强
            saNode.Type = msoSmartArtNodeTypeAssistant
        End If
    Next
End Sub

额外注意事项 #

• 确保当前使用的SmartArt布局为组织结构图类布局，非层级类布局本身不支持助理节点属性
• 如果修改后仍存在层级异常，可在修改节点类型后手动调用MyOrgChart.SmartArt.Update方法刷新布局

内容的提问来源于stack exchange，提问作者Rob DW Jansen