Excel根据单元格的颜色设置折线图的颜色

Question

所以我有一组数据，见下图。

我希望折线图的颜色与相应行的背景颜色相同。在此示例中，前 10 个应为绿色，后 10 个应为红色。这是我将持续做的事情，有时数据集很大，因此单独选择每条线的颜色不是一个可行的选择。

有人可以帮帮我吗？-蒂姆

Answer 1

类似这样的事情可能会让你顺利完成大部分任务。

• 迭代Chart的SeriesCollection并获取每个Series的Formula。
• 使用 Split 获取对源数据的引用(公式的第三部分)。
• 将每个Series 的ForeColor.RGB 设置为与其关联的数据范围的Interior.Color。

---

Sub ColorMyChart()
    Dim myChart As ChartObject
    Set myChart = Sheet1.ChartObjects("Chart 1")

    With myChart.Chart
        Dim i As Integer

        For i = 1 To .SeriesCollection.Count

            Dim dataAddress As String
            ' takes a formula like =SERIES(Sheet1!$A$2,Sheet1!$B$1:$K$1,Sheet1!$B$2:$K$2,1)
            ' and returns Sheet1!$B$2:$K$2
            dataAddress = Split(.SeriesCollection(i).Formula, ",")(2)

            Dim dataColor As Long
            ' assumes the data range all has the same color
            dataColor = Sheet1.Range(dataAddress).Interior.Color

            .SeriesCollection(i).Format.Line.ForeColor.RGB = dataColor
        Next i
    End With
End Sub