expression A variable that represents a Shape object.
Return Value
Nothing
Example
This Microsoft Visual Basic for Applications (VBA) macro shows how to use the Ungroup method.
Visual Basic for Applications
Sub Ungroup_Example()
Dim vsoShape1 As Visio.Shape
Dim vsoShape2 As Visio.Shape
Dim vsoShape3 As Visio.Shape
Dim vsoGroup 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)
'Add a copy of one of the rectangles to the page.
ActivePage.Drop vsoShape1, 3.5, 3.5
Set vsoShape3 = ActivePage.Shapes(3)
'Deselect all shapes, and then select all the shapes on the page.
Set vsoSelection = ActiveWindow.Selection
vsoSelection.Select vsoShape1, visDeselectAll + visSelect
vsoSelection.Select vsoShape2, visSelect
vsoSelection.Select vsoShape3, visSelect
'Group all the shapes into a group shape.
Set vsoGroup = vsoSelection.Group
'Ungroup the shapes.
vsoGroup.Ungroup