Excel 2016中使用VBA生成箱线图（BoxPlot）遇问题求助

看起来你在VBA生成箱线图时踩了几个常见的坑，我来帮你逐一解决：

核心问题与修正点 #

• 图表类型选错了：你当前用的是xlLine（折线图）枚举值，而箱线图对应的正确类型是xlBoxWhisker
• 依赖Activate/Select不稳定：这种写法很容易因为工作表焦点变化导致代码出错，改用对象变量直接操作更可靠
• 代码存在截断：你的值轴标题设置代码没写完，需要补全完整逻辑

修正后的完整代码示例 #

Dim targetWs As Worksheet
Dim boxPlotChart As Chart

' 用对象变量替代Activate，避免焦点漂移问题
Set targetWs = temp ' 假设temp是你已定义的目标工作表对象
Set boxPlotChart = targetWs.Shapes.AddChart2(227, xlBoxWhisker).Chart

With boxPlotChart
    ' 直接通过工作表对象引用数据源，不用ActiveSheet
    .SetSourceData Source:=targetWs.Range(targetWs.Cells(2, 1), targetWs.Cells(pEnd, 15))
    .ChartTitle.Text = "Diagram 1"
    
    ' 配置值轴的范围与标题
    With .Axes(xlValue)
        .MinimumScale = -30
        .MaximumScale = 25
        .HasTitle = True
        .AxisTitle.Text = "值轴标题" ' 替换为你需要的标题文本
    End With
    
    ' 配置分类轴标题
    With .Axes(xlCategory, xlPrimary)
        .HasTitle = True
        .AxisTitle.Text = "Axe1"
    End With
End With

额外提示 #

1. 如果你需要兼容Excel 2013及更早版本，可以把AddChart2(227, xlBoxWhisker)替换为AddChart(xlBoxWhisker)
2. 确保pEnd变量已经被正确赋值为数据区域的最后一行行号，否则数据源范围会出错
3. 全程用对象变量操作（targetWs、boxPlotChart），能彻底避免因用户手动切换工作表导致的代码执行异常

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