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