Excel Graph：颜色数据标签与折线图VBA的颜色相同

Question

是否有一种方法可以使用折线图的颜色自动为折线图数据标签着色？我有多个系列，最好自动为它们上色。

Answer 1

类似这样的东西：

Dim cht As Chart, s As Series

Set cht = ActiveSheet.ChartObjects(1).Chart

For Each s In cht.SeriesCollection
    If s.HasDataLabels Then
        s.DataLabels.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = _
          s.Format.Line.ForeColor.RGB
    End If
Next s