excel - 更改图表Excel VBA中的点颜色

Question

我有这个图表，如果图表中的任何点超过特定限制，那么它的颜色应该改变。

任何人都可以建议我如何在 VBA 中获取图表，然后应用这种条件，例如我想更改上图中最高点的颜色。任何帮助将不胜感激。

Answer 1

使用:ActiveWorkbook.Sheets("Sheet1").ChartObjects("Chart1").Chart.SeriesCollection(1)

每个点的颜色为.Points(PointNumber).Interior.Color

您必须循环的点数是.Points.Count

每个点的值为.Points(PointNumber).Value

标记本身的颜色(仅适用于折线图、散点图和雷达图):

.Points(PointNumber).MarkerBackgroundColor = RGB(0,255,0)    ' green
.Points(PointNumber).MarkerForegroundColor = RGB(255,0,0)    ' red
.Points(PointNumber).MarkerStyle = xlMarkerStyleCircle ' change the shape