根据轴标签更改聚簇条形图的颜色

那么我试图根据标签条件改变我的graphics的颜色。

首先，这是graphics的样子。

我试图根据三个条件来改变价值观。 警告，紧急和紧急。 基本上每个条件有三种不同的颜色。 例如，所有的紧急情况都是红色的，所有紧急情况都是橙色的，所有警告都是黄色 “Title”在我的情况下是x轴，“criticality”恰好是集群。

我试图跟随线程excel vba改变基于点值的数据点的条形图颜色

我也看着这个线程使用基于类别标签的VBA改变栏颜色

我没有任何运气试图使用这两个线程的代码。

第二个线程的代码实际上对我来说是有意义的。

Dim c As Chart Dim s As Series Dim iPoint As Long Dim nPoint As Long Set c = ActiveChart Set s = c.SeriesCollection(1) nPoint = s.Points.Count For iPoint = 1 To nPoint If s.XValues(iPoint) = "avg" Then s.Points(iPoint).Interior.Color = RGB(255, 0, 0) End If Next iPoint 

但不知道我应该改变什么变数。 欢迎任何帮助！

谢谢。

Answer 1

s.XValues（iPoint）将包含Title和Criticality级联。 尝试改变：

 If s.XValues(iPoint) = "avg" 

至：

 If right(s.XValues(iPoint), 9) = "Emergency" 

通过这种方式，您将检查标签的最后9个字母是否完全是“紧急”。

您应该能够修改您的代码，为Critical或Warning添加另一个条件。

希望这个帮助，

macros观大师