Processing Groups through VBA

[cmjm15]

vsoSelection = ActiveWindow.Selection
For each n in Selection
<retrive characters>
<Perform calculations and changes>
Next n
The above works for processing native visio shapes, but how do I process a
group's submembers?
a code example would be appreciated.
Thanks.

 

[junethesecond]

Using shape.shapes property.
Dim shp As Visio.Shape
Dim child As Visio.Shape
For Each shp In ActiveWindow.Selection
For Each child In shp.Shapes
Debug.Print child.Index, child.Name
Next child
Next shp