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)

Excel 标记线图着色问题

Excel Marker Line Graph Coloring Issue

excel

vba