when multiple objects selected, and is consiting of powerclips,
allow to active the command NONE (Remove the powerclip contents).
hope this makes you understand sir
convert all powerclips to none and delete all contents?
Don't think that's what the "None" is for. You wish to remove or ignore powerclips from current selection? Again a simple macro can be made to do this.
It would really help if it were clearly explained what the "None" Command is.
I THINK that it is the Command that removes a PowerClip frame from an object, and shows up under Tools>Workspace>Commands>Object as "None".
If that is used on an empty PowerClip frame, it just removes the frame. If it's used on a PowerClip with contents, then the contents are discarded.
Shelby Moore showed a way to do this by invoking the Command by its GUID: CorelDRAW X6 - Changing Frame Type to None?
So, sure, one could make a macro to walk through a list of PowerClips and apply that to them. Shelby's example intentionally skips PowerClips that aren't empty.
None Means : empty PowerClip frame
sir it is important to remove the whole powerclips at once and to have outline when to give to for a die person for to prepare the die to cut the designs into pieces for box making purpose.
For instance... small cone shaped boxes are placed in a sheet more than 20 or 30 pieces. all are powerclipped. i have to give it to the die manufacturing company as an outline. for this purpose the empty powerclip frame is not active when i select them all. I have to select each and every piece and to have to remove. I want this to remove at once. Like Revert to Objects works for Symbol at once.
Sub RemovePowerclipFrame() Dim sr As ShapeRange, s As Shape Optimization = True ActiveDocument.BeginCommandGroup "ExtractAllPowerclipUltra" Set sr = ActiveSelectionRange For Each s In ActiveSelection.Shapes If Not s.PowerClip Is Nothing Then s.RemoveFromSelection s.PowerClip.ExtractShapes.Delete 's.RemoveFromSelection sr.AddToSelection If Not s.PowerClip Is Nothing Then If s.PowerClip.Shapes.Count = 0 Then s.CreateSelection Application.FrameWork.Automation.Invoke "7b022531-3cd7-487f-a797-9d80179dc821" End If End If End If DoEvents Next s Application.Optimization = False ActiveWindow.Refresh ActiveDocument.EndCommandGroupEnd Sub
I have tried your code, works great. But, the i need to undo twice to get into initial object. If I'm not wrong, CommandGroup shold've fix this.