ShapeRange.Group (Word)
Gruppiert die Formen im angegebenen Bereich und gibt die gruppierten Formen als einzelnes Shape -Objekt zurück.
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.
Set myDocument = ActiveDocument
With myDocument.Shapes
.AddShape(msoShapeCan, 50, 10, 100, 200).Name = "shpOne"
.AddShape(msoShapeCube, 150, 250, 100, 200).Name = "shpTwo"
With .Range(Array("shpOne", "shpTwo")).Group
.Fill.PresetTextured msoTextureBlueTissuePaper
.Rotation = 45
.ZOrder msoSendToBack
End With
End With