How to or where to add code to existing macro to include shapes within all powerclips - ?

It’s too early to laugh - there’s still the good old “back door” 
- EnterEditMode
most likely it won’t be so fast - but it will work 
- just need to think about the powerclip in the powerclip

...

and yes - the power clip itself - can also have transparency
so - the fill is processed, but the outline is not

Hmmm, if I step through this with F8 it works perfect. Thoughts

Sub TransOutlineOff()
Dim s As Shape, p As Integer, srOutlines As ShapeRange, ob As Integer
ob = 0
For p = 1 To ActiveDocument.Pages.Count
ActiveDocument.Pages(p).Activate
Set srOutlines = FindAllShapes.Shapes.FindShapes(Query:="@com.transparency.type > 0")
For Each s In srOutlines.Shapes
s.Transparency.AppliedTo = cdrApplyToFill
Next s
ob = ob + srOutlines.Count
srOutlines.RemoveAll
Next p
' MsgBox "Delete " & ob & " transparency"
End Sub

Function FindAllShapes() As ShapeRange
Dim s As Shape
Dim srPowerClipped As New ShapeRange
Dim sr As ShapeRange, srAll As New ShapeRange

' If ActiveSelection.Shapes.Count > 0 Then
' Set sr = ActiveSelection.Shapes.FindShapes()
' Else
Set sr = ActivePage.Shapes.FindShapes()
' End If

Do
For Each s In sr.Shapes.FindShapes(Query:="!@com.powerclip.IsNull")

srPowerClipped.AddRange s.PowerClip.Shapes.FindShapes()
Next s

srAll.AddRange sr
sr.RemoveAll
sr.AddRange srPowerClipped
srPowerClipped.RemoveAll
Loop Until sr.Count = 0

Set FindAllShapes = srAll
For Each s In srAll
s.AddToSelection
Next s
ActiveSelection.Transparency.AppliedTo = cdrApplyToFill

End Function

Uh....wait a minute, the code I pasted up there removes the transparencies altogether. grrr.

Thought I was onto something.

Sorry, got a new computer and I've been busy trying to rebuild my custom workspace. grrrr!

Tried the new and it shuts corel down. Same step