Sub RevertPowerClipToShape() ActiveDocument.ReferencePoint = cdrCenter
Dim OrigSelection As ShapeRange Set OrigSelection = ActiveSelectionRange
Dim s As Shape
If ActiveSelectionRange.Count = 0 Then MsgBox "No shapes selected" Exit Sub Else For Each s In OrigSelection s.PowerClip.Shapes.All.Delete Next s End IfEnd Sub
this macro deletes the contents and keeps the container.Can someone change to do it the other way around please
JuniorSilk said:The powerclip is inside the other because of a macro that I use that keeps the proportions because there are many shapes.
OK, so you are using a macro to do something... and it creates a problem... and then you look for another macro to solve the problem that was caused by using the first macro.
It might be better to create ONE macro that does the whole job without creating a new problem.
This usually starts with trying to define the problem, e.g.:
the way it is I don't need any improvements, it's great. Thank you very much for your attention
funny that before joining the community, I had heard about you through a guy here in Brazil who has a YouTube channel about macros and other tips about Coreldraw. He also mentions the names of other people who help with macros (Felipe Ferreira / Jaime Rodrigues and etc.)
Corel na Veia!
I am happy that Léo has created Portuguese-language videos demonstrating some of my macros.
That's right!
do you have instagram or facebook? do you sell macros?
I'm not on Instagram or Facebook.
If you wish to contact me, then just send me a private message here on the forum. I can give you an email address.