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.