Freigeben über

Shape.GroupItems-Eigenschaft (Publisher)

  • Artikel

Gibt eine GroupShapes -Auflistung zurück, wenn es sich bei der angegebenen Form um eine Gruppe handelt.

Syntax

Ausdruck. GroupItems

expression Eine Variable, die ein Shape-Objekt darstellt.

Hinweise

Alle intelligenten Objekte werden als gruppierte Formen behandelt.

Beispiel

Das folgende Beispiel fügt drei Dreiecke zu einer Publikation hinzu, gruppiert sie, legt eine Farbe für die gesamte Gruppe fest und ändert dann nur für das zweite Dreieck die Farbe.

Sub Grouper() 
 
 Dim docSheet As Document 
 
 Set docSheet = ActiveDocument 
 With docSheet.MasterPages.Item(1).Shapes 
 ' Add the 3 triangles 
 .AddShape(Type:=msoShapeIsoscelesTriangle, _ 
 Left:=10, Top:=10, Width:=100, Height:=100).Name = "shpOne" 
 .AddShape(Type:=msoShapeIsoscelesTriangle, _ 
 Left:=150, Top:=10, Width:=100, Height:=100).Name = "shpTwo" 
 .AddShape(Type:=msoShapeIsoscelesTriangle, _ 
 Left:=300, Top:=10, Width:=100, Height:=100).Name = "shpThree" 
 ' Group and fill the 3 triangles 
 With .Range(Array("shpOne", "shpTwo", "shpThree")).Group 
 .Fill.PresetTextured msoTextureBlueTissuePaper 
 .GroupItems(2).Fill.PresetTextured msoTextureGreenMarble 
 End With 
 End With 
 
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.