записанный код VBA не меняет цвет легенды в диаграмме

Question

Следующий код VBA - это то, что я получил, когда записывал макрос, чтобы изменить цвет серии в моей легенде.

Когда я запускаю его, он не меняет цвет? Кроме того, есть ли способ указать серию, а не просто серию1, серию2, вместо этого я хочу указать яблоки, апельсины и т. Д. c ..

Мой код выглядит следующим образом:

  ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.Legend.Select
    ActiveChart.Legend.LegendEntries(1).Select
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorText1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .Transparency = 0
        .Solid

Answer 1

Попробуйте следующее ...

With ActiveSheet.ChartObjects("Chart 1").Chart
    With .Legend.LegendEntries(1).LegendKey.Format.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorText1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .Transparency = 0
        .Solid
    End With
End With

Надеюсь, это поможет!