形状填充颜色取决于另一种形状的颜色

Question

我有两（2）个形状。如果填充了shape1（红色），则不应填充另一个，反之亦然。我使用以下代码：

Dim sShape As Shape
Set sShape = ActiveSheet.Shapes(Application.Caller)

With sShape.Fill
    If .Visible = True Then
        .Visible = False
    Else
        .Visible = True
        .ForeColor.RGB = RGB(255, 0, 0)
    End If
End With

If sShape.Fill.ForeColor.RGB = RGB(255, 0, 0) = True Then
    Range(Array("Rectangle 109")).Fill = False
Else
    Range(Array("Rectangle 109")).Fill = True
    Range(Array("Rectangle 109")).ForeColor.RGB = RGB(255, 0, 0)
End If

但它会在Range(Array("Rectangle 109")).Fill = False停止。 任何人都可以帮我实现我的目标吗？

Answer 1

I have found the solution. This has result in the follow Code:

var payload = {
    // Add properties that you probably require to pass 
    // down to your controller method
};
AppViewBus.trigger("showview:ViewX",payload);