Hide All Shape Based On Background Color

[a_t_a]

Hi
I want hidde all oval shape with filled color is RED
my Shape name is oval 1 , oval 2, oval 3 , and ……..oval n


With this macro hide all shape

Dim i As Long
      For i = 1 To ActiveSheet.Shapes.Count
      ActiveSheet.Shapes.Range(Array("Oval " & i)).Visible = Not ActiveSheet.Shapes.Range(Array("Oval " & i)).Visible
      Next i

I want hide only red shape with macro
Download File :
http://www.sharefile.ir/uploads/1511404325.xlsx
Or
http://ge.tt/7MvyWRn2


tnx

 

[wideboydixon]

Public Sub HideRedOvals()

ShowHideShapes "Oval ", RGB(255, 0, 0), msoFalse

End Sub
Private Sub ShowHideShapes(shapeName As String, foreColor As Long, showHide As MsoTriState)

Dim thisShape As Shape

For Each thisShape In ActiveSheet.Shapes
    If StrComp(Left$(thisShape.Name, Len(shapeName)), shapeName, vbTextCompare) = 0 _
    And thisShape.Fill.foreColor = foreColor Then
        thisShape.Visible = showHide
    End If
Next

End Sub

WBD

 

[a_t_a]

tanx you my hero