我来帮你搞定这个Visio形状对齐的需求！你原来的代码里把数组定义成Visio.Selection是不对的，应该用Visio.Shape类型的数组来存储选中的单个形状。下面是完整的实现思路和代码：

首先要正确声明存储形状的数组，通过遍历选中集合把每个形状存入数组：

Sub AlignShapesWithFixedSpacing()
    Dim sel As Visio.Selection
    Set sel = Visio.ActiveWindow.Selection
    
    ' 先检查是否有选中的形状
    If sel.Count = 0 Then
        MsgBox "请先选中至少一个形状再执行！"
        Exit Sub
    End If
    
    ' 声明形状数组并根据选中数量初始化
    Dim arrShapes() As Visio.Shape
    ReDim arrShapes(1 To sel.Count)
    
    ' 把选中的每个形状存入数组
    Dim i As Integer
    For i = 1 To sel.Count
        Set arrShapes(i) = sel(i)
    Next i

接下来要从数组里筛选出对齐的基准——比如最顶端的形状（Visio坐标系Y轴向上，所以PinY值越大越靠上），或者最左侧的形状（PinX值越小越靠左）。这里先以最顶端为例：

' 找出最顶端的形状作为对齐基准
    Dim baseShape As Visio.Shape
    Set baseShape = arrShapes(1)
    For i = 2 To sel.Count
        ' 比较形状垂直中心的Y坐标，找到最靠上的那个
        If arrShapes(i).Cells("PinY").ResultIU > baseShape.Cells("PinY").ResultIU Then
            Set baseShape = arrShapes(i)
        End If
    Next i

如果需要以最左侧为基准，只需要把判断条件改成：

If arrShapes(i).Cells("PinX").ResultIU < baseShape.Cells("PinX").ResultIU Then

假设我们要垂直向下对齐，固定间距设为0.5英寸（你可以根据需求调整），然后逐个调整其他形状的位置：

' 设置固定间距（Visio默认单位是英寸，这里直接写数值即可）
    Dim fixedSpacing As Double
    fixedSpacing = 0.5
    
    ' 记录当前需要偏移的距离
    Dim currentOffset As Double
    currentOffset = fixedSpacing
    
    ' 遍历数组，对齐除基准外的所有形状
    For i = 1 To sel.Count
        If Not arrShapes(i) Is baseShape Then
            ' 保持X坐标和基准一致，Y坐标向下偏移对应距离
            arrShapes(i).Cells("PinX").FormulaU = baseShape.Cells("PinX").FormulaU
            arrShapes(i).Cells("PinY").FormulaU = baseShape.Cells("PinY").ResultIU - currentOffset
            
            ' 每对齐一个，偏移量累加
            currentOffset = currentOffset + fixedSpacing
        End If
    Next i
End Sub

如果要水平向右对齐，只需要把逻辑反过来：保持PinY和基准一致，把currentOffset加到基准的PinX值上即可。

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