Ungroup Method [Visio 2003 SDK Documentation]

Ungroups a group.

object**.Ungroup**

object     Required. An expression that returns a Shape or Selection object to ungroup.

Version added

2.0

Example

This Microsoft Visual Basic for Applications (VBA) macro shows how to use the Ungroup method.

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 

End Sub  

Applies to | Selection object | Shape object

See Also | AddToGroup method | Group method | RemoveFromGroup method