Shapes.Range, méthode (Word)

Article
04/07/2023

Renvoie un objet ShapeRange qui représente les formes contenues dans une plage.

Syntaxe

expression. Plage (index)

expression Obligatoire. Variable qui représente un objet Shapes .

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

Un objet Shape s'affiche toujours sur la même page que la plage à que laquelle il est ancré.

Remarque

[!REMARQUE] 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

Shapes, 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.