ShapeRange.Group (Word)

Cette méthode regroupe les formes de la plage spécifiée et renvoie les formes groupées sous la forme d’un seul objet Shape .

Du fait qu'un groupe de formes est traité comme une forme seule, grouper et dissocier des formes modifie le nombre d'éléments dans la collection Shapes et change les numéros d'index des éléments qui suivent les éléments modifiés de la collection.

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