Shape.Group Method (Visio)
Groups the objects that are selected in a selection, or it converts a shape into a group.
The following example shows how to group Shape objects.
Public Sub Group_Example() Dim vsoShape1 As Visio.Shape Dim vsoShape2 As Visio.Shape Dim vsoGroupShape As Visio.Shape Dim vsoSelection As Visio.Selection 'Draw two rectangles. Set vsoShape1 = ActivePage.DrawRectangle(1, 2, 2, 1) Set vsoShape2 = ActivePage.DrawRectangle(1, 4, 2, 3) 'Deselect all shapes, and then select the two rectangles. Set vsoSelection = ActiveWindow.Selection vsoSelection.Select vsoShape1, visDeselectAll + visSelect vsoSelection.Select vsoShape2, visSelect 'Group the rectangles into a group shape. Set vsoGroupShape = vsoSelection.Group End Sub