如何使用VBA设置折线图中指定数据点对应连线的颜色

错误原因 #

你之前调用Point.Format.Line属性修改的是数据标记的边框样式，和折线本身的线段无关，所以不会生效。

实现逻辑 #

Excel VBA中，折线图两个相邻数据点之间的连线样式，由两个点中位置靠后的那个Point对象的Border属性控制：

• 点1到点2的连线：对应Points(2).Border
• 点2到点3的连线：对应Points(3).Border
  以此类推。

正确代码示例 #

' pts 为折线系列的Points集合对象
' 示例：修改第2个点对应的连线（点1→点2之间的线段）颜色为灰色
pts.Item(2).Border.Color = RGB(150, 150, 150)

' 示例：修改点2→点3之间的线段颜色
' pts.Item(3).Border.Color = RGB(150, 150, 150)

' 可搭配修改线宽等其他样式
' pts.Item(2).Border.Weight = xlMedium

注意事项 #

• 需提前确认折线系列已开启连线显示，未设置为无线条样式
• 该语法兼容Excel 2007及以上版本、WPS表格
• 批量修改多段连线时，循环操作对应位置的Point对象的Border属性即可

内容的提问来源于stack exchange，提问作者Rafał Kowalski