Propriété Selection.ShapeRange (Publisher)

Renvoie une collection ShapeRange qui représente tous les objets Shape dans la plage spécifiée ou la sélection. La plage de formes peut contenir des dessins, des formes, des images, OLE objets, les contrôles ActiveX, les objets texte et les légendes.

Syntaxe

expression. ShapeRange

Expression Variable qui représente un objet Selection .

Valeur renvoyée

ShapeRange

Exemple

L'exemple suivant définit le motif de remplissage pour toutes les formes de la sélection. Cet exemple suppose qu’une ou plusieurs formes sont sélectionnées dans la composition active.

Sub ChangeFillForShapeRange() 
 Selection.ShapeRange.Fill.Patterned Pattern:=msoPattern20Percent 
End Sub

L'exemple suivant applique une ombre et le format de remplissage à toutes les formes de la sélection. Cet exemple suppose qu’une ou plusieurs formes sont sélectionnées dans la composition active.

Sub SetShadowForSelectedShapes() 
 With Selection.ShapeRange 
 .Shadow.Type = msoShadow6 
 .Fill.Patterned Pattern:=msoPatternDottedDiamond 
 End With 
End Sub

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.