在VBA中更改组织结构图下属的布局无效

在Visio 2019 Standard中，我有一个使用组织结构图向导创建的组织结构图，我希望通过宏更改组织结构图中下属的布局。我已经找到了一些应该实现这个技巧的代码（见下文），但是应该改变布局的那一行根本没有改变布局

从中，我发现我应该在宏中添加如下内容：

Call visio.Application.Addons("OrgC11").Run("/toolbar_horiz1")

有一些类似的东西，但其中一张海报提出了一个关于Visio版本的问题，我不确定这是否相关，所以我将其包括在这里

我正在运行一个基于附在第一页的代码的宏，下面是相关部分的样子：

    For i = 1 To sel.Count
        Set shp = sel(i)
        If shp.CellExists("User.Solsh", False) Then
            If shp.Cells("User.Solsh").Formula = "{0BF98B35-200C-41D5-8A23-20EF77CBC94A}" Then
                If shp.Cells("User.ShapeType").ResultInt(visNoCast, False) = 1 Then     ' MANAGER
                    ActiveWindow.Select shp, visDeselectAll + visSelect

                    Call Visio.Application.Addons("OrgC11").Run("/toolbar_horiz1")

                End If
            End If
        End If
    Next i

---

我稍后会检查它，但您可以只对选择中的每个shp执行

，

，而不是整个迭代。。。