RESOLVED[Colors]

[Fonty]

To fill some shape with white color I use the following intructions:

ActiveSheet.Shapes(i).Select
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 1

However I'm unable to run something like

ActiveSheet.Shapes(i).Select
If Selection.ShapeRange.SchemeColor = 1 Then
GoTo end
Else
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 1
End If
End:

How can I write a condition on the color of a shape?

[Static]

If Selection.ShapeRange.Fill.ForeColor.SchemeColor = 1 then

and DO NOT USE END

actually rewrite that so u dont need the goto.. try to avoid goto's unless u HAVE to use it

ActiveSheet.Shapes(I).Select
    If Selection.ShapeRange.Fill.ForeColor.SchemeColor  <> 1 Then
        Selection.ShapeRange.Fill.Solid
        Selection.ShapeRange.Fill.ForeColor.SchemeColor = 1
    End If

[Hack]

and DO NOT USE END

In this case, End appears to be a label rather then the use of that function that we will not mention , and this appears to be Excel VBA code.

Moved to Office Development

[Static]

I know it was just a lable.... but I figured its best to just avoid it all together.. and try to avoid the goto as well