求助：如何用VBA使图表条形边框匹配对应单元格边框

你当前代码的问题在于混合使用了.Format.Line和.Border两个对象配置边框属性，导致样式同步失效。Excel图表系列的边框属性需统一通过.Format.Line对象设置，才能确保所有边框参数（线型、颜色、粗细）正确同步。

修正后的代码如下：

Sub ColorOfChart1()
    
    Dim i As Long, j As Long, k As Long
    Dim ws As Worksheet, cht As Chart, c As Range, b As Border
    
    Set ws = ActiveSheet
    k = 0
    For i = 1 To 54
        Set cht = ws.ChartObjects("Cluster" & i).Chart
        For j = 1 To cht.SeriesCollection.Count
            Set c = ws.Cells(68, j + 5 + k)
            Set b = c.Borders(xlEdgeBottom) ' 以单元格底部边框为样式参考
            
            With cht.SeriesCollection(j).Format.Line
                ' 保留原有填充色匹配功能
                cht.SeriesCollection(j).Format.Fill.ForeColor.RGB = c.Interior.Color
                
                ' 同步边框样式属性
                .LineStyle = b.LineStyle
                .Color = b.Color
                .Weight = b.Weight ' 同步边框粗细，替代原固定值0.5
            End With
        Next j
        k = k + 10
    Next i
End Sub

关键修改说明： #

• 统一使用.Format.Line对象管理所有边框属性，避免.Border与.Format.Line的属性冲突
• 新增同步单元格边框的Weight（粗细）属性，确保边框样式完全匹配单元格设置
• 拆分填充色与边框设置逻辑，保持代码可读性

额外提示： #

如果目标单元格的不同边边框样式存在差异，可根据需求调整c.Borders(xlEdgeBottom)为对应方向（如xlEdgeTop、xlEdgeLeft），或先判断单元格的有效边框样式后再同步。

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