Excel VBA：如何将7个Doughnut图表按3列4行布局排列？

问题分析 #

原代码核心问题在于列数计算逻辑错误、尺寸硬编码以及索引偏移，导致无法实现3列4行的预期布局。

修正后的代码 #

Const TopAnchor As Long = 8
Const LeftAnchor As Long = 140
Const HorizontalSpacing As Long = 3
Const VerticalSpacing As Long = 3
Const ChartHeight As Long = 125
Const ChartWidth As Long = 210 

Dim Counter As Long
Counter = 0

' 遍历当前工作表的图表对象，筛选环形图进行布局调整
For Each chtObj In ActiveSheet.ChartObjects
    If chtObj.Chart.ChartType = xlDoughnut Then
        Counter = Counter + 1
        
        With chtObj
            ' 计算垂直位置：每3个图表换一行
            .Top = TopAnchor + (WorksheetFunction.RoundUp(Counter / 3, 0) - 1) * (VerticalSpacing + ChartHeight)
            ' 计算水平位置：3列循环，索引从0开始避免首图偏移
            .Left = LeftAnchor + ((Counter - 1) Mod 3) * (HorizontalSpacing + ChartWidth)
            ' 使用预定义常量统一设置尺寸
            .Height = ChartHeight
            .Width = ChartWidth
        End With
    End If
Next chtObj

关键修改说明 #

• 列索引修正：将原代码的(Counter) Mod 4改为(Counter - 1) Mod 3，适配3列布局逻辑，同时修正第一个图表的水平偏移问题。
• 尺寸复用常量：替换硬编码的高度/宽度值为预定义常量，后续调整图表尺寸时只需修改常量值即可统一生效。
• 补全循环逻辑：添加遍历图表的循环结构，确保Counter按图表数量正确递增，实现批量布局。

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