Excel图表VBA在散点图中更改线条颜色

Sub ChangeScatterLineColor()
    Dim ws As Worksheet
    Dim cht As ChartObject
    Dim srs As Series
    Dim lineColor As Long
    
    ' 设置工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置图表对象名称
    Set cht = ws.ChartObjects("Chart 1")
    
    ' 设置要更改颜色的系列名称
    Set srs = cht.Chart.SeriesCollection("Series 1")
    
    ' 设置线条颜色，这里使用RGB值，可以根据需要更改
    lineColor = RGB(255, 0, 0) ' 红色
    
    ' 更改线条颜色
    srs.Format.Line.ForeColor.RGB = lineColor
End Sub