如何通过Excel VBA调整绘图区宽度适配带边框的图表区？

这段代码无法直接实现你的全部要求，具体问题和修正方案如下：

• 语法错误：代码里的.ChartArea使用了前缀点，但缺少对应的With语句包裹目标图表对象，直接运行会触发编译错误。
• 逻辑遗漏：你的需求分为两步——先调整图表区宽度，再让绘图区宽度适配调整后的图表区内部，但原代码只处理了绘图区宽度的设置，没执行第一步的图表区宽度调整。

符合要求的完整代码示例：

With ActiveChart
    Dim borderThickness As Double
    borderThickness = .ChartArea.Border.Weight
    
    ' 步骤1：调整图表区宽度（原宽度减去2倍边框粗细）
    .ChartArea.Width = .ChartArea.Width - 2 * borderThickness
    
    ' 步骤2：设置绘图区宽度为调整后图表区的内部宽度
    ' 同时调整绘图区左侧位置，避免和边框重叠
    .PlotArea.Left = borderThickness
    .PlotArea.Width = .ChartArea.Width - 2 * borderThickness
End With

额外说明：如果只设置绘图区宽度而不调整左侧位置，绘图区可能会和图表区的左侧边框重叠，导致显示异常，因此建议同时指定绘图区的左偏移量为边框粗细值。

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