Shape.Ungroup-Methode (Visio)
Hebt die Gruppierung einer Gruppe auf.
Ausdruck. Gruppierung
Ausdruck Eine Variable, die ein Shape-Objekt darstellt.
Nichts
Mit diesem VBA-Makro (Microsoft Visual Basic für Applikationen) wird gezeigt, wie die Ungroup-Methode verwendet wird.
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
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.