如何用VBA自动将形状（圆形）排列为m*n网格？

以下是可实现需求的VBA代码，支持自定义行数、每行元素数量，还能指定整体网格尺寸，自动计算圆形大小与间距，确保行内和行间距完全一致：

Sub ArrangedCirclesGrid()
    Dim totalRows As Integer, perRowCount As Integer
    Dim gridWidth As Single, gridHeight As Single
    Dim doc As Document
    Dim shp As Shape
    Dim circleSize As Single, gapSize As Single
    Dim startX As Single, startY As Single
    Dim i As Integer, j As Integer
    
    ' 自定义参数（可直接修改数值）
    totalRows = 6          ' 网格行数
    perRowCount = 12       ' 每行圆形数量
    gridWidth = 450        ' 整体网格宽度（单位：磅，1磅≈0.35mm）
    gridHeight = 250       ' 整体网格高度
    
    Set doc = ActiveDocument
    
    ' 计算圆形尺寸与统一间距
    gapSize = (gridWidth - perRowCount * circleSize) / (perRowCount + 1)
    circleSize = (gridWidth - (perRowCount + 1) * gapSize) / perRowCount
    
    ' 校验高度方向间距匹配，自动调整高度以保证行列间距一致
    If (gridHeight - totalRows * circleSize) / (totalRows + 1) <> gapSize Then
        MsgBox "指定的整体尺寸无法保证行列间距一致，将自动调整高度匹配间距", vbInformation
        gridHeight = totalRows * circleSize + (totalRows + 1) * gapSize
    End If
    
    ' 计算网格起始位置（自动居中于页面）
    startX = (doc.PageSetup.PageWidth - doc.PageSetup.LeftMargin - doc.PageSetup.RightMargin - gridWidth) / 2 + doc.PageSetup.LeftMargin
    startY = (doc.PageSetup.PageHeight - doc.PageSetup.TopMargin - doc.PageSetup.BottomMargin - gridHeight) / 2 + doc.PageSetup.TopMargin
    
    ' 批量创建并排列圆形
    For i = 1 To totalRows
        For j = 1 To perRowCount
            Set shp = doc.Shapes.AddShape(msoShapeOval, _
                startX + gapSize + (j - 1) * (circleSize + gapSize), _
                startY + gapSize + (i - 1) * (circleSize + gapSize), _
                circleSize, circleSize)
            ' 自定义圆形样式（可按需修改）
            shp.Fill.ForeColor.RGB = RGB(100, 150, 200)
            shp.Line.Visible = msoFalse
        Next j
    Next i
End Sub

参数说明 #

• totalRows：设置网格的总行数，示例为6行
• perRowCount：设置每行包含的圆形数量，示例为12个
• gridWidth/gridHeight：设置整体网格的宽高，单位为Word标准单位「磅」。若设置的宽高无法保证行列间距一致，代码会自动调整高度并弹窗提示

使用步骤 #

1. 打开目标Word文档，按下Alt + F11打开VBA编辑器
2. 插入新模块：右键点击左侧项目窗口中的当前文档，选择「插入」→「模块」
3. 将上述代码粘贴到模块编辑区
4. 修改参数为你需要的数值，按下F5运行宏即可

注：代码默认将网格居中于页面，圆形的填充色、边框样式可通过修改shp.Fill和shp.Line相关代码自定义

内容的提问来源于stack exchange，提问作者erik-stengel