ShapeRange.Group-Methode (Publisher)

Gruppiert die Formen im angegebenen Formenbereich. Gibt die gruppierten Formen als einzelnes Shape -Objekt zurück.

Syntax

Ausdruck. Gruppe

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Rückgabewert

Form

Bemerkungen

Der angegebene Bereich muss mehr als eine Form enthalten, sonst tritt ein Fehler auf.

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

Beispiel

Dieses Beispiel fügt zwei Formen zu der ersten Seite der aktiven Publikation hinzu, gruppiert die beiden neuen Formen, legt die Füllung für die Gruppe fest, dreht die Gruppe und sendet sie in den Hintergrund der Zeichnungsebene.

With ActiveDocument.Pages(1).Shapes 
 
 ' Add two shapes to the page. 
 .AddShape(Type:=msoShapeCan, _ 
 Left:=50, Top:=10, Width:=100, Height:=200).Name = "shpOne" 
 .AddShape(Type:=msoShapeCube, _ 
 Left:=150, Top:=250, Width:=100, Height:=200).Name = "shpTwo" 
 
 ' Group the shapes and change the formatting for the whole group. 
 With .Range(Index:=Array("shpOne", "shpTwo")).Group 
 .Fill.PresetTextured PresetTexture:=msoTextureBlueTissuePaper 
 .Rotation = 45 
 .ZOrder ZOrderCmd:=msoSendToBack 
 End With 
 
End With 

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.