Excel VBA散点图：如何中断连续线条，实现单数据点垂直线

你之前的代码思路不对——散点图里Points(i).Format.Line控制的是数据点的边框线条，不是点与点之间的连续连线。要实现每个数据点仅显示垂直线、不连接后续点，得这么改：

修改后的VBA代码 #

' 第一步：关掉系列的整体连线，彻底取消点间的连续连接
scatterSeries.Format.Line.Visible = msoFalse

' 第二步：遍历每个数据点，用垂直误差线模拟垂直线
For i = 1 To scatterSeries.Points.Count
    With scatterSeries.Points(i)
        ' 启用当前点的垂直误差线
        .ErrorBars(xlVertical).Visible = msoTrue
        
        ' 设置误差线的样式，和你原来需求的灰色虚线匹配
        With .ErrorBars(xlVertical).Format.Line
            .ForeColor.RGB = RGB(192, 192, 192)
            .DashStyle = msoLineSysDash
            .Weight = 0.8
        End With
        
        ' 设置误差线长度：从当前点垂直到X轴（Y=0的位置）
        ' 如果你的X轴对应Y值不是0，替换成实际基准值，比如Y轴最小值
        .ErrorBars(xlVertical).MinusValue.Type = xlFixedValue
        .ErrorBars(xlVertical).MinusValue.Value = .YValues(1)
        
        ' 只保留向下的垂直线，关掉向上的误差线
        .ErrorBars(xlVertical).Plus.Visible = msoFalse
    End With
Next i

关键说明 #

• 关掉系列连线：scatterSeries.Format.Line.Visible = msoFalse是核心，直接切断点与点之间的连续连接
• 用误差线模拟垂直线：散点图没有原生的“单条垂直线”设置，垂直误差线是最简便的替代方案，只保留向下的部分就刚好是从数据点到X轴的垂直线
• 样式匹配：误差线的颜色、虚线样式、粗细完全对应你原来的需求

自定义调整 #

如果不需要垂直线到X轴，而是固定长度的垂直线，把.MinusValue.Value改成固定数值即可；如果X轴对应的Y基准值不是0，可替换成ActiveChart.Axes(xlValue).MinimumScale来获取Y轴最小值。

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