Share via


Shape.Group Method

Visio Automation Reference

Groups the objects that are selected in a selection, or it converts a shape into a group.

Version Information
 Version Added:  Visio 2.0

Syntax

expression.Group

expression   A variable that represents a Shape object.

Return Value
Shape

Example

The following example shows how to group Shape objects.

Visual Basic for Applications
  
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

See Also