Extract Multiple Powerclips

Any possibility that theres some code to extract multi-selected Powerclip (PC) objects? I would like to select certain PC's and extract at one time.

I tried playing with Zaum's post
http://forum.oberonplace.com/showthr...ight=powerclip
but i am definitely not into coding.

Anyone whip a quikkie up?

Thanks All!

[Alex]

Here is some code for you:

Sub ExtractAllPowerclips()
    Dim s As Shape
    Dim sr As New ShapeRange
    For Each s In ActiveSelection.Shapes
        If Not s.PowerClip Is Nothing Then
            sr.AddRange s.PowerClip.ExtractShapes
        End If
    Next s
    sr.CreateSelection
End Sub

It extracts all the shapes from selected powerclip containers and makes the newly extracted shapes selected.

Ahh... Thanks Alex! and sorry for the wrong post spot.

This should work well.