Excel VBA:在If / Then情况下使用形状的颜色

我使用macros在Excel上创build了一个图表。 图表上的每个graphics都根据其类别填充颜色。 我想知道是否有可能在If / Then的情况下使用形状的颜色来执行不同的动作,例如只用特定的颜色显示形状。 例如,类似于:

If shape.Fill.ForeColor.SchemeColor = 1 Then shape.delete 

我已经试过了,但似乎没有对我的图表做任何事情。 有没有人有如何做到这一点的想法?

谢谢 !!

你有没有尝试用相应的RGB值检查颜色? 由于SchemeColor依赖于当前的配色scheme,因此可能会寻找与预期不同的颜色