在 visio 中按字母顺序对形状和子形状进行排序

Question

抱歉，我对此有点陌生，我有一个 Excel 文档，可以创建 visio 图表，但顺序不是按字母顺序排列的

'Set shape data properties
.CellsU("Prop.Handle").FormulaU = """" & acdEntity.acdHandle & """"
.CellsU("Prop.Level").FormulaU = """" & acdEntity.acdAttribs("LEVEL")

在设置属性时有没有办法让它们按字母顺序设置？

或者是否有代码可以让我在 Visio 中编写宏来选择所有形状和子形状。

这是我写的

Sub textsel()
Dim shp As shape

Set shp = ActiveWindow.Selection.PrimaryItem

If Vshp.Shapes(4).Characters.Text Like "*test*" Then

Sort Key1:=Range("Page-1"), Order1:=xlAscending
End If
End Sub

但是当运行它时，我收到一个错误，提示范围未定义。

抱歉有点含糊

Answer 1

您可以使用 Sort Key cell ，其语法如下：

'Set shape data properties   
.CellsU("Prop.Handle.Sortkey").FormulaU = "2"       
.CellsU("Prop.Level.Sortkey").FormulaU = "1"