How to iterate across grouped shapes?

[dirkasarus-rex]

This iterates across standard shapes:

===============================
Dim iShpNum As Integer
Dim oShp As Visio.Shape

For iShpNum = 1 To Visio.ActivePage.Shapes
   Set oShp = Visio.ActivePage.Shapes(iShpNum)
   'do stuff with oShp here
Next
===============================

But shapes that are grouped together are ignored by this.  How do I iterate across the groups and shapes contained by those groups?

Thank you for your insight!

Dirkasarus-rex

[Yacine]

This topic should help you:
http://visguy.com/vgforum/index.php?topic=5802.0;nowap


[Paul - Moderator] Edited to make URL into a clickable link

[dirkasarus-rex]

With a bit of manipulation, that worked perfectly.  Thank you Yacine!