Excel标记线图着色问题

Question

过去一周我一直在研究一个宏来自动在 Excel 中创建图表。我已经走了很远（很大程度上要感谢这个网站及其用户的帮助），但我被困在一个看似微不足道的步骤上。出于某种原因，我的带有标记图的线条显示其中有变色。我的意思是标记的中间填充是excel默认的标准蓝色。我认为问题在于 [ .Visible = msoTrue] 行，但无论我如何操作代码，我都无法将标记设为纯色。

代码如下

Sub DM1R_Graph()

Dim ws As Worksheet

For Each ws In Sheets
        ws.Activate

If ws.Name <> "WSNs" Then

Dim sht As Worksheet
Dim xVals As Range, yVals As Range
Dim co As Shape, cht As Chart, s As Series

    Set sht = ActiveSheet
    Set co = sht.Shapes.AddChart()
    Set cht = co.Chart

    'remove any existing series
    Do While cht.SeriesCollection.Count > 0
        cht.SeriesCollection(1).Delete
    Loop

      cht.ChartType = xlLineMarkers

    'get the extent of the XValues...
    'below is the first Y axis entry (Oil)
    '(change the 2nd offset number to get what you want)

    Set xVals = sht.Range(sht.Range("B2"), sht.Cells(Rows.Count, "B").End(xlUp))
    Set yVals = xVals.Offset(0, 2)



    Set s = cht.SeriesCollection.NewSeries
    s.XValues = xVals
    s.Values = yVals


    With s.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 176, 80)
        .Transparency = 0
        .Solid
    End With
    With s.Format.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 176, 80)
        .Transparency = 0
    End With

    'below is the second y axis entry (Gas)

    Set xVals = sht.Range(sht.Range("B2"), sht.Cells(Rows.Count, "B").End(xlUp))
    Set yVals = xVals.Offset(0, 4)



    Set s = cht.SeriesCollection.NewSeries
    s.XValues = xVals
    s.Values = yVals


    With s.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
        .Solid
    End With
    With s.Format.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
    End With


    'below is the third y axis entry (water)

    Set xVals = sht.Range(sht.Range("B2"), sht.Cells(Rows.Count, "B").End(xlUp))
    Set yVals = xVals.Offset(0, 5)



    Set s = cht.SeriesCollection.NewSeries
    s.XValues = xVals
    s.Values = yVals


    With s.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 176, 240)
        .Transparency = 0
        .Solid
    End With
    With s.Format.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 176, 240)
        .Transparency = 0
    End With

    'end Y axis entries



    cht.HasLegend = True

  'below applies the legend names to be whatever are in parenthesis'

    cht.Legend.Select
    ActiveChart.SeriesCollection(1).Name = "Oil (BO)"
    ActiveChart.SeriesCollection(2).Name = "Gas (MCF)"
    ActiveChart.SeriesCollection(3).Name = "Water (BW)"




'below applies the data labels

cht.SeriesCollection(1).Select
    cht.SeriesCollection(1).ApplyDataLabels


cht.SeriesCollection(2).Select
    cht.SeriesCollection(2).ApplyDataLabels


cht.SeriesCollection(3).Select
    cht.SeriesCollection(3).ApplyDataLabels



'below orients the datalabels to either above,below,right,or left

cht.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).DataLabels.Select
    Selection.Position = xlLabelPositionRight

cht.SeriesCollection(2).Select
    ActiveChart.SeriesCollection(2).DataLabels.Select
    Selection.Position = xlLabelPositionAbove

cht.SeriesCollection(3).Select
    ActiveChart.SeriesCollection(3).DataLabels.Select
    Selection.Position = xlLabelPositionLeft


   'below moves the chart

   Dim iChart As Long
  Dim lTop As Double

  lTop = ActiveSheet.Range("Q10").Top
  For iChart = 1 To ActiveSheet.ChartObjects.Count
    ActiveSheet.ChartObjects(iChart).Top = lTop
    ActiveSheet.ChartObjects(iChart).Left = ActiveSheet.Range("Q1").Left
    lTop = lTop + ActiveSheet.ChartObjects(iChart).Height + ActiveSheet.Range("5:7").Height
  Next






'below deals with the chart title

    cht.SetElement (msoElementChartTitleAboveChart)
    With cht.ChartTitle
        .Text = sht.Name & Chr(10) & "Oil,Gas, and Water Production Through Well Life "
        .Characters.Font.Size = 12
    End With

'below adds a filter to one column. You cannot have more than 1 filter per sheet.

Columns("L:L").Select
    Selection.AutoFilter




End If

    Next ws



End Sub

下面是一张显示我的意思的图片。您可以在红色系列中明显看到它，但它也出现在绿色和蓝色系列中。

Answer 1

我相信你需要在系列上设置MarkerBackgroundColor。

s.MarkerBackgroundColor = RGB(255, 0, 0)