Visio VBA单线路对象选择问询：按颜色或区域筛选需求

一、修正现有按名称筛选的选择代码 #

你当前的问题出在Select方法的参数上：使用visSelect会直接替换当前选择，导致最终只有最后一个选中的形状是主选对象，后续操作自然只作用于它。要实现批量累加选择，需改用visSelectAdd参数，同时确保正确操作Selection对象：

Dim sel As Visio.Selection
Set sel = ActiveWindow.Selection
sel.Clear ' 清空原有选择，避免干扰

For Each Vshp In ActivePage.Shapes
    If Vshp.Name Like "*UG*" Then
        Debug.Print Vshp.ID & " - " & Vshp.Master.Name
        sel.Select Vshp, visSelectAdd ' 累加选择目标形状
    End If
Next

' 后续操作直接针对sel对象，比如对齐
sel.Align visHorzAlignNone, visVertAlignMiddle, False

二、按颜色批量选择对象 #

可以通过判断形状的填充色或线条色来筛选目标对象，步骤如下：

1. 确定目标颜色的RGB值（可通过Visio的颜色拾取器查看）
2. 遍历页面形状，对比颜色值并累加选择

示例代码（以填充色为例）：

Dim sel As Visio.Selection
Dim targetRGB As Long
targetRGB = RGB(0, 128, 255) ' 替换为你需要的目标颜色RGB值

Set sel = ActiveWindow.Selection
sel.Clear

For Each Vshp In ActivePage.Shapes
    ' 若要判断线条色，将"FillForegnd"替换为"LineColor"
    If Vshp.Cells("FillForegnd").Result(visRGB) = targetRGB Then
        sel.Select Vshp, visSelectAdd
    End If
Next

' 执行后续操作，比如批量组合
sel.Group

三、针对“单条线路内对象”的额外方案 #

如果线路内的对象属于同一个Visio容器（Container），可以直接获取容器内的所有形状，无需依赖名称或颜色：

Dim containerShp As Visio.Shape
Dim sel As Visio.Selection

' 先手动选中线路对应的容器形状，再执行以下代码
Set containerShp = ActiveWindow.Selection(1)
Set sel = containerShp.Shapes ' 获取容器内全部形状

' 对容器内对象执行操作
sel.Align visHorzAlignNone, visVertAlignMiddle, False

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