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
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
there is the macro cdr preflight that detects in powerclip as you want. it is a very complex macro that detects many properties.
before using it you have to watch a video tutorial, but it's not that difficult.
if you don't understand the video search the net for other videos about the macro
Looks like a bug.
s.Transparency.MergeMode returns 0 for all transparent objects inside a powerclip in my tests.