RESOLVED[Colors]

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

VB Code:

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

However I'm unable to run something like

VB Code:

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?

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

VB Code:

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

Quote:

---

Originally Posted by Static

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 :D , and this appears to be Excel VBA code.

Moved to Office Development

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 ;)