Excelgraphics图例与标记不匹配

我使用VBA格式化图表的标记：

Dim sc As SeriesCollection Set sc = MySheet.ChartObjects("MyChart").Chart.SeriesCollection Dim p As Point, s As Series For Each s In sc For Each p In s.Points p.Format.Fill.ForeColor.RGB = s.Format.Line.ForeColor.RGB p.Format.Fill.BackColor.RGB = s.Format.Line.ForeColor.RGB p.MarkerSize = 3 Next p Next s 

但是，图表区域中的标记与图例中的标记不匹配（边框颜色相同，但图例中的填充颜色不同）。 请注意右侧（图例）框内的颜色：

我环顾了Chart家族的一些不同的属性，但是找不到控制这个的东西。 Point属性MarkerBackgroundColor和MarkerForegroundColor似乎可能，但不解决它。 我怎样才能解决这个问题？

Answer 1

既然你正在循环收集，你可以简单地做所有的标记：

 For Each s In sc s.MarkerBackgroundColor = s.Border.Color s.MarkerSize = 3 Next s 

Answer 2

find了更多的挖掘：

 Worksheet.ChartObjects(Index).Chart.Item(Index).Format.Fill.ForeColor.RGB 

很长很长！