Processing Groups through VBA

C

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.
 
J

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
 
Top