Visio批量修改选中形状格式：宏代码失效问题求助

你需要实现右键调用的宏，批量修改自定义模具中选中形状的线条粗细与颜色，但现有代码在多选时失效，问题根源及修正方案如下：

现有代码的问题 #

• 第一段代码仅固定选中集合的第一个形状（Item(1)），因此仅能处理单个形状，多选时其他形状不会被修改。
• 第二段代码存在多处错误：shapeIDs变量未声明、循环内仍固定取第一个形状、冗余的ActiveWindow.Select vsoSel操作，导致无法遍历所有选中形状。

修正后的宏代码 #

Sub 修改线条属性()
    Dim vsoSel As Visio.Selection
    Dim vsoShape As Visio.Shape
    
    Set vsoSel = Visio.ActiveWindow.Selection
    
    ' 遍历所有选中的形状
    For Each vsoShape In vsoSel
        ' 设置线条颜色为红色（带主题保护）
        vsoShape.CellsSRC(visSectionObject, visRowLine, visLineColor).FormulaU = "THEMEGUARD(RGB(255,0,0))"
        ' 设置线条粗细为2.25pt
        vsoShape.CellsSRC(visSectionObject, visRowLine, visLineWeight).FormulaU = "2.25 pt"
    Next vsoShape
End Sub

修正说明 #

• 使用For Each...Next直接遍历选中集合内的每个形状，代码简洁且逻辑清晰，避免了ID遍历的复杂操作。
• 移除冗余的选择操作，直接对每个形状执行属性修改，确保所有选中形状都会被处理。

右键调用设置 #

若要让宏通过右键菜单调用，可通过Visio「开发工具」→「宏」选中该宏，点击「选项」设置快捷键，或在Visio选项的「自定义功能区/右键菜单」中，将该宏命令添加到右键菜单组中。

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