GroupShapes.Range, méthode (Word)

  • Article

Renvoie un objet ShapeRange.

Syntaxe

expression. Plage (index)

expression Obligatoire. Variable qui représente une collection « GroupShapes ».

Parameters

Nom Requis/Facultatif Type de données Description
Index Obligatoire Variant Spécifie quelles sont les formes à inclure dans la plage spécifiée. Peut être un entier qui spécifie le numéro d'index d'une forme au sein de la collection de formes, une chaîne qui spécifie le nom d'une forme ou un tableau contenant des entiers ou des chaînes.

Valeur renvoyée

ShapeRange

Remarques

Objets ShapeRange ne comprennent pas les objets InlineShape. Un objet InlineShape équivaut à un caractère et est positionné comme un caractère dans une plage de texte. Les objets Shape sont ancrés à une plage de texte (la sélection par défaut), mais ils peuvent être placés n'importe où sur la page. Un objet Shape s'affiche toujours sur la même page que la plage à que laquelle il est ancré.

La plupart des opérations que vous pouvez faire avec un objet Shape peuvent également être effectuées avec un objet ShapeRange qui contienne une seule forme. Certaines opérations sont effectuées sur un objet ShapeRange qui contient plusieurs formes, génère une erreur.

Exemple

Cet exemple montre comment définir le violet comme couleur de remplissage de premier plan pour la première forme du document actif.

Sub ShRange() 
 With ActiveDocument.Shapes.Range(1).Fill 
 .ForeColor.RGB = RGB(255, 0, 255) 
 .Visible = msoTrue 
 End With 
End Sub

Cet exemple montre comment appliquer une ombre à une forme variable du document actif.

Sub ShpRange2(strShpName As String) 
 ActiveDocument.Shapes.Range(strShpName).Shadow.Type = msoShadow6 
End Sub

Pour exécuter le sous-programme précédent, entrez le code suivant dans un module de code standard.

Sub CallShpRange2() 
 Dim shpArrow As Shape 
 Dim strName As String 
 
 Set shpArrow = ActiveDocument.Shapes.AddShape(Type:=msoShapeLeftArrow, _ 
 Left:=200, Top:=400, Width:=50, Height:=75) 
 
 shpArrow.Name = "myShape" 
 strName = shpArrow.Name 
 ShpRange2 strShpName:=strName 
End Sub

Cet exemple montre comment sélectionner les formes un et trois du document actif.

Sub SelectShapeRange() 
 ActiveDocument.Shapes.Range(Array(1, 3)).Select 
End Sub

Cet exemple montre comment sélectionner et supprimer les formes de la première forme du document actif. Il présuppose que la première forme est une zone de dessin.

Sub CanvasShapeRange() 
 Dim rngCanvasShapes As Range 
 Set rngCanvasShapes = ActiveDocument.Shapes(1).CanvasItems.Range(1) 
 rngCanvasShapes.Select 
 rngCanvasShapes.Delete 
End Sub

Voir aussi

GroupShapes, Collection d'objets

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.