嘿，这个问题我之前做VBA报表工具的时候也踩过坑！AutoFit列宽确实会把锚定在列上的图表给拉变形，甚至超出打印范围。别担心，给你几个实用的解决方案，帮你把图表牢牢固定在打印范围内：

方法1：直接让图表适配打印区域宽度 #

这个思路最直接——先算出当前工作表打印区域的可用宽度，然后把图表的尺寸和位置硬绑定到这个宽度上，彻底脱离列宽的影响：

Sub FitChartToPrintArea()
    Dim targetSheet As Worksheet
    Dim reportChart As ChartObject
    Dim printAreaUsableWidth As Double
    
    ' 替换成你的目标工作表
    Set targetSheet = ThisWorkbook.Worksheets("报表Sheet")
    ' 替换成你的图表对象（可以用名称或索引）
    Set reportChart = targetSheet.ChartObjects("销售趋势图")
    
    ' 计算打印区域的总宽度（如果没设置打印区域，也可以用A到I列的宽度总和）
    If targetSheet.PageSetup.PrintArea <> "" Then
        printAreaUsableWidth = targetSheet.Range(targetSheet.PageSetup.PrintArea).Columns.Width
    Else
        printAreaUsableWidth = targetSheet.Columns("A:I").Columns.Width
    End If
    
    ' 让图表左对齐A列，宽度完全适配打印区域
    reportChart.Left = targetSheet.Columns("A").Left
    reportChart.Width = printAreaUsableWidth
    
    ' 可选：根据页面高度调整图表高度（比如减去上下页边距）
    ' reportChart.Height = targetSheet.PageSetup.PageHeight - targetSheet.PageSetup.TopMargin - targetSheet.PageSetup.BottomMargin
End Sub

方法2：AutoFit后重置图表尺寸 #

如果你必须先执行列宽自动调整，那可以先把图表的目标尺寸记下来，AutoFit完成后再强制重置图表的大小：

Sub AutoFitThenFixChart()
    Dim targetSheet As Worksheet
    Dim reportChart As ChartObject
    Dim desiredLeft As Double, desiredWidth As Double
    
    Set targetSheet = ThisWorkbook.Worksheets("报表Sheet")
    Set reportChart = targetSheet.ChartObjects("销售趋势图")
    
    ' 先记录你想要的图表位置和宽度（这里直接用打印区域宽度）
    desiredLeft = targetSheet.Columns("A").Left
    desiredWidth = targetSheet.PageSetup.PrintArea.Width
    
    ' 执行列宽自动调整
    targetSheet.Columns("A:I").EntireColumn.AutoFit
    
    ' 强制把图表改回目标尺寸，不受列宽影响
    reportChart.Left = desiredLeft
    reportChart.Width = desiredWidth
    
    ' 按需调整高度
    ' reportChart.Height = 350 ' 自定义合适的高度
End Sub

方法3：设置图表为自由浮动模式 #

图表默认的锚定方式会跟着单元格大小变化，把它改成自由浮动，就能彻底切断和列宽的关联：

Sub SetChartAsFreeFloating()
    Dim reportChart As ChartObject
    Set reportChart = ThisWorkbook.Worksheets("报表Sheet").ChartObjects("销售趋势图")
    
    ' 设置图表为自由浮动，单元格大小变化不再影响它
    reportChart.Placement = xlFreeFloating
    
    ' 再手动设置图表适配页面
    reportChart.Left = ActiveSheet.Columns("A").Left
    reportChart.Width = ActiveSheet.PageSetup.PrintArea.Width
End Sub

额外小贴士 #

• 如果要更精准适配页面，可以考虑减去页边距的宽度：

  Dim usableWidth As Double
  usableWidth = targetSheet.PageSetup.PageWidth - targetSheet.PageSetup.LeftMargin - targetSheet.PageSetup.RightMargin
  reportChart.Width = usableWidth
  

• 记得检查打印预览，确保图表的上下位置也在打印范围内，必要时调整reportChart.Top属性。

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