Visio VBA多对象垂直居中对齐报错问题求助

错误原因分析 #

执行sel.Selection.Align时触发“Object doesn't support this property or method”错误，核心问题有两个：

• sel本身就是Visio.Selection类型对象，不存在.Selection属性，多余的层级调用导致属性/方法不存在。
• 原代码逻辑错误：每选中一个形状就执行对齐，此时选择集仅包含单个形状，无法触发对齐操作（对齐需要至少2个对象）。

修正后的代码 #

Dim VPage As Page
Set VPage = ActiveDocument.Pages("SLD")

Dim Vshp As Visio.Shape
Dim sel As Visio.Selection
' 创建空选择集，避免受当前窗口选中内容干扰
Set sel = VPage.CreateSelection(visSelTypeEmpty)

For Each Vshp In VPage.Shapes
    If Vshp.Name Like "*UG*" Then
        ' 将符合条件的形状添加到选择集
        sel.Select Vshp, visSelect
    End If
Next

' 确保选择集至少有2个形状再执行对齐
If sel.Count >= 2 Then
    sel.Align visHorzAlignNone, visVertAlignMiddle, False
End If

关键修复点 #

• 移除无效属性调用：直接使用sel.Align替代sel.Selection.Align，因为sel本身就是Selection对象，无需额外嵌套调用。
• 初始化干净选择集：改用页面创建的空选择集，避免继承当前窗口的选中内容，保证操作仅针对目标形状。
• 统一执行对齐操作：先遍历收集所有名称含“UG”的形状到选择集，确认数量≥2后再执行对齐，确保对齐逻辑生效。

内容的提问来源于stack exchange，提问作者Geographos