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

Selection.Ungroup Method (Visio)

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

Ungroups a group.

Syntax

expression . Ungroup

expression A variable that represents a Selection object.

Return Value

Nothing

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