ShapeRange.Group, méthode (Publisher)

Regroupe les formes dans la plage de formes spécifiée. Renvoie les formes groupées en tant qu'objet unique Shape.

Syntaxe

expression. Groupe

Expression Variable qui représente un objet ShapeRange .

Valeur renvoyée

Shape

Remarques

La plage spécifiée doit contenir plus d'une forme, dans le cas contraire une erreur se produit.

Comme un groupe de formes est traité comme une seule forme, le groupement et dissociation 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 concernés dans la collection.

Exemple

Cet exemple ajoute deux formes à la première page de la composition active, regroupe les deux nouvelles formes, définit le remplissage du groupe, fait pivoter le groupe et envoie ce dernier à l’arrière de la couche de dessin.

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 

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.