Table of contents
Collapse the table of content
Expand the table of content

Shape.Group Method (Visio)

office 365 dev account|Last Updated: 6/12/2017
1 Contributor

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


expression . Group

expression A variable that represents a Shape object.

Return Value



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
© 2017 Microsoft