Düzenle

Aracılığıyla paylaş

Shape.Ungroup method (Visio)

  • Makale

Ungroups a group.

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.

 
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

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.