Share via


Shape.Ungroup Method

Visio Automation Reference

Ungroups a group.

Version Information
 Version Added:  Visio 2.0

Syntax

expression.Ungroup

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 

End Sub

See Also