Freigeben über


Selection.AddToGroup-Methode (Visio)

Fügt der ausgewählten Gruppe die ausgewählten Shapes hinzu.

Syntax

Ausdruck. AddToGroup

Ausdruck Eine Variable, die ein Selection-Objekt darstellt.

Rückgabewert

Nichts

Bemerkungen

Die aktuelle Auswahl muss die hinzuzufügenden Shapes sowie die Gruppe, der Sie diese hinzufügen möchten, enthalten. Die Gruppe muss die primäre Auswahl oder die einzige Gruppe in der Auswahl sein.

Beispiel

Das folgende Makro zeigt, wie Sie mithilfe der AddToGroup-Methode einer ausgewählten Gruppe ausgewählte Shapes hinzufügen.

Bevor Sie dieses Makro ausführen, öffnen Sie die Schablone Standardformen oder ein auf der Vorlage Standarddiagramm basierendes Dokument.

 
Public Sub AddToGroup_Example() 
 
 Application.ActiveWindow.Page.Drop Application.Documents.Item("BASIC_U.VSS").Masters.ItemU("Square"), 3, 8 
 
 Application.ActiveWindow.Page.Drop Application.Documents.Item("BASIC_U.VSS").Masters.ItemU("Pentagon"), 4, 8 
 
 Application.ActiveWindow.SelectAll 
 
 ActiveWindow.DeselectAll 
 ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemU("Pentagon"), visSelect 
 ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemU("Square"), visSelect 
 ActiveWindow.Selection.Group 
 
 Application.ActiveWindow.Page.Drop Application.Documents.Item("BASIC_U.VSS").Masters.ItemU("Ellipse"), 5, 6 
 
 ActiveWindow.DeselectAll 
 ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemU("Ellipse"), visSelect 
 ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemU("Sheet.3"), visSelect 
 ActiveWindow.Selection.AddToGroup 
 
End Sub

Support und Feedback

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.