OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Thread Tools Search this Thread Display Modes
Old 15-04-2007, 10:00
Posts: n/a
Default 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
but i am definitely not into coding.

Anyone whip a quikkie up?

Thanks All!
Reply With Quote
Old 15-04-2007, 10:20
Alex's Avatar
Alex Alex is offline
Join Date: Nov 2002
Posts: 1,941
Blog Entries: 4

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
End Sub
It extracts all the shapes from selected powerclip containers and makes the newly extracted shapes selected.
Reply With Quote
Old 15-04-2007, 11:06
Posts: n/a
Talking Cool!

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

This should work well.
Reply With Quote

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Selecting multiple Named shapes Mitsu1 CorelDRAW/Corel DESIGNER VBA 2 09-11-2006 11:07
How? scanning multiple images Jerry Corel Photo-Paint VBA 1 04-10-2004 00:57
multiple addins (coreldraw 10) kelley CorelDRAW/Corel DESIGNER VBA 1 10-08-2004 17:56
How can I extract a piece of a bitmap object using VBA code oswaldon Corel Photo-Paint VBA 2 25-04-2004 20:37
Printing multiple copies sfldan CorelDRAW CS 0 21-08-2003 15:37

All times are GMT -5. The time now is 05:04.

Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2023, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com