VBA to check if shapes are white or not when opening the file.

[danbates]

Hi,

Please could someone help me?

I would like a code that can check what colour certain shapes are when the file is opened? I can't find anything online that is close enough to what I would like, so that's why I am struggling.

So if the shapes are not all white then I get a message box saying "No" and if they are all white then it says "Yes"

My shapes are called Clean_0 to Clean_17

Any help would be appreciated.

Thanks

Dan

 

[Micron]

Perhaps put this in a standard module and call it from the wb open event or just put the code in that event (without the sub end sub lines of course). Untested:

Sub checkShapeColor()
Dim i As Integer, intWhite As Integer

For i = 0 To 17
     If Sheets("Sheet 3").Shapes("Clean_" & i).Fill.ForeColor = vbWhite Then intWhite = intWhite + 1
Next

If intWhite <> 18 Then
     MsgBox "No"
Else
     MsgBox "Yes"
End If

End Sub

Use your sheet name of course.

 

[danbates]

Hi Micron,

That's perfect, thank you.

Regards

Dan

 

[Micron]

Glad I could help & thanks for the recognition.