Macro for find transparency doesn't work for powerclipped objects.

I have wrote macro to find transparency but it can't find object within powerclip.

here is my code.

Function FindTransparency2()
Dim s As Shape
Dim sr As ShapeRange
Dim n As Long
n = 0
Set sr = ActivePage.FindShapes.All
n = n + CountMergeMode(sr)
If n > 0 Then
msgbox n
End If
n = 0

End Function

Function CountMergeMode(sr As ShapeRange) As Long
Dim s As Shape
Dim n As Long
n = 0
For Each s In sr
If Not s.Transparency.Type = cdrNoTransparency Then
Select Case s.Transparency.MergeMode
Case Is = 0, 9 'ignore for 'Normal' and 'Multiply' mode.
n = n
Case Else
n = n + 1
End Select
End If
If Not s.PowerClip Is Nothing Then
n = n + CountMergeMode(s.PowerClip.Shapes.All)
End If
Next s
CountMergeMode = n
End Function

Parents
No Data
Reply Children
No Data