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 = 0Set sr = ActivePage.FindShapes.All n = n + CountMergeMode(sr) If n > 0 Thenmsgbox 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 = nEnd Function
Looks like a bug.
s.Transparency.MergeMode returns 0 for all transparent objects inside a powerclip in my tests.