Test sur la couleur d'une forme

Bonjour,

Je me permets de poster un poste sur le forum, car je voudrai savoir comment réaliser un test sur la couleur d'une forme.

si le rond est rouge je fais ...

Sinon si il est vert je fais ...

Je vous remercie par avance.

bonjour

un exemple avec une forme nommée "oval 1"

If ActiveSheet.Shapes("oval 1").Fill.ForeColor = vbred Then
 MsgBox "rouge"
Else
 MsgBox "pas rouge"
End If