Excel折线图标记边界修改异常：VBA代码致线段样式错误求助

问题原因 #

你当前代码中，通过Selection.Format.Line修改最后一个点的线条样式时，实际上修改的是该数据点与前一个点之间的折线线段，而非仅修改标记的边框。这就是最后一段折线变成实线的原因。

修正后的代码 #

直接针对数据点的标记边框属性设置，避免影响折线本身：

With ch.SeriesCollection(i).Format.Line
    .transparency = 0
    .Style = msoLineSingle
    .dashStyle = msoLineRoundDot
    .ForeColor.RGB = RGB(0, 0, 0)
End With

' 设置第一个数据点的标记
With ch.SeriesCollection(i).Points(1)
    .MarkerStyle = xlMarkerStyleCircle
    .MarkerSize = 5
    .MarkerBackgroundColor = RGB(255, 255, 255) ' 标记填充色（白色）
    .MarkerForegroundColor = RGB(0, 0, 0) ' 标记边框色（黑色）
    .MarkerLineStyle = xlContinuous ' 标记边框设为实线
    .MarkerLineWeight = 1.25 ' 标记边框粗细
    .Format.Fill.Visible = False ' 隐藏标记填充（保持透明）
End With

' 设置最后一个数据点的标记
With ch.SeriesCollection(i).Points(lastPoint)
    .MarkerStyle = xlMarkerStyleCircle
    .MarkerSize = 5
    .MarkerBackgroundColor = RGB(255, 255, 255)
    .MarkerForegroundColor = RGB(0, 0, 0)
    .MarkerLineStyle = xlContinuous
    .MarkerLineWeight = 1.25
    .Format.Fill.Visible = False
End With

关键修改说明 #

• 移除了Select和Selection相关代码，直接通过数据点对象的属性操作，避免误修改折线线段
• 使用.MarkerForegroundColor、.MarkerLineStyle、.MarkerLineWeight专门控制标记的边框样式，这些属性仅作用于标记，不会影响折线本身
• 保持折线全程为圆点虚线，仅首尾数据点显示带白色填充、黑色实线边框的圆形标记

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