ShapeRange.Ungroup-Methode (Publisher)

Hebt die Gruppierung der angegebenen Gruppe von Formen oder aller Gruppen von Formen in dem angegebenen Formenbereich auf. Wenn es sich bei der angegebenen Form um ein Bild oder ein OLE-Objekt handelt, wird es von Microsoft Publisher getrennt und in einen nicht gruppierten Satz von Formen konvertiert. Beispielsweise wird ein eingebettetes Microsoft Excel-Arbeitsblatt in Zeilen und Textfelder konvertiert.

Gibt die nicht gruppierten Formen als einzelnes ShapeRange-Objekt zurück.

Syntax

Ausdruck. Gruppierung

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Rückgabewert

ShapeRange

HinwBemerkungeneise

Wenn Sie diese Methode bei einer Inlineform oder einer Form, bei der es sich nicht um eine Gruppe, ein Bild oder ein OLE-Objekt handelt, verwenden, wird ein Fehler generiert. Ein Fehler tritt ebenfalls auf, wenn es sich bei dem Bild um eine Bitmap-, JPEG-, GIF- oder PNG-Datei (Portable Network Graphics) handelt.

Da eine Gruppe von Formen als einzelnes Objekt behandelt wird und die Indexnummern von Elementen, die nach den betroffenen Elementen in der Auflistung enthalten sind.

Darüber hinaus werden nicht neu gruppierte Formen der Shapes -Auflistung auf der aktuellen Seite (oder Seiten) hinzugefügt oder dem Entwurfsbereich. Daher können sie von einer Sammlung in eine andere verschoben.

Beispiel

Dieses Beispiel hebt die Gruppierung aller gruppierten Formen auf der ersten Seite der aktiven Publikation auf.

Dim shpLoop As Shape 
 
For Each shpLoop In ActiveDocument.Pages(1).Shapes 
 If shpLoop.Type = pbGroup Then shpLoop.Ungroup 
Next shpLoop 

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.