I need a macro to ungroup large amounts of groups within groups. This is what I have made so far. The problem I am running into is that I can't seem to get it to follow any logic to end the Do loop other then the counter down below but if I do to many step throughs then it errors out the macro. I can't seem to get myself to accept the error. How can I fix what I am doing wrong? Any help would be greatly appreciated.
Sub UngroupItall()
Dim GroupedShapes As ShapeDim SelectedArea As ShapeRangeDim Variable01 As VariantSet SelectedArea = ActiveSelectionRange
For Each GroupedShapes In SelectedArea Do Until Variable01 = 100 If GroupedShapes.Type = cdrGroupShape Then ab = ab + 1 GroupedShapes.UngroupAll End If Loop Next GroupedShapes
End Sub
Why would you want a macro to do it. Ctrl+A to select all and then 'Ungroup all'.
Any ways I can try to write a macro for you but you will have to allow me a day as I have not installed DRAW on my home machine.
No that works very well. It wasn't something I saw in my shortcut csv file because it didn't have a shorcut to it. Ctrl+A is Select all for me. Thank you for letting me know about the command. You have saved me a lot of time.
Hi.
Did you try both of the above codes?
~John
I actually did yes, the top one gave me an error code, not sure why though??
i've just tried to take 2x pieces of the text and have them duplicate 210mm to the left using the following code:
ActiveDocument.CreateSelection ActiveLayer.Shapes(2), ActiveLayer.Shapes(1)Dim dup1 As ShapeRangeSet dup1 = ActiveSelection.DuplicateAsRange()dup1.Move -8.267717, 0#ActiveDocument.CreateSelection ActiveDocument.Pages(2).Layers("Layer 1").Shapes(2)ActiveDocument.AddToSelection ActiveDocument.Pages(2).Layers("Layer 1").Shapes(1)Dim dup2 As ShapeRangeSet dup2 = ActiveSelection.DuplicateAsRange()dup2.Move -8.267717, 0#
i copied the code for 31 pages (updating the necessary page references in each instance) although the first page works fine, the second page skips and from then on the du[plication is effected on the pages although without moving the 210mm as required (so it duplicates itself over itself).
the ungroup does a similar thing whereby the first page ungroups perfectly although the rest stays grouped. when i manually ungroup these items i have to ungrounp up to 5 times before they are completely ungrouped, alternatively i click on ungroup all and then all is ungrouped on that page...
any ideas??
impalaart@telkomsa.net said:i've just tried to take 2x pieces of the text and have them duplicate 210mm to the left using the following code:
There's better ways to grab the shape then duplicating code. I can't do anything without a sample file.