VBA help with Group

Is it posible in macro make a group for all objects created in that macro, and how? With CommandGroup I can group comands in one Undo, but how make a Group of all object created in macro?

0 Shelby Moore over 9 years ago

Add all of your shapes to a ShapeRange, then group it with ShapeRange.Group

-Shelby
Cancel
Up 0 Down

Reply

Verify Answer

Cancel

0 Sub GDG_John( ) over 9 years ago

Old reply with example from Alex V at Oberon Place:

Code:

Dim sr As New ShapeRange
Dim sGroup as Shape
sr.Add sInside 'add a single shape
sr.Add sOutside 'add another shape
Set sGroup = sr.Group

0 Navi1982 over 8 years ago in reply to Sub GDG_John( )

It is strange, but when I use same method for grouping the sGroup have value Nothing. :( I scripting in CorelDraw X3. And I know that sr.Group must return a shape, but it not return.
Can anybody help me?
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 Sub GDG_John( ) over 8 years ago in reply to Navi1982

HI.
Open your locals window. View > Locals. Keep and eye on what you have going on. Step through the macro slowly line by line using F8. Make sure your have some shapes in your shaperange in the first place also.
~John
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 Navi1982 over 8 years ago in reply to Sub GDG_John( )

Thanks for sugestion, but I have watched already. Anyway - I have raised my issue here...
Cancel
Up 0 Down

Reply

Verify Answer

Cancel