Objet ShapeRange (projet)

Représente une plage de formes, qui est un ensemble d’une ou plusieurs formes dans un rapport.

Remarques

Project utilise la même infrastructure Office Art que les autres applications Office et adapte Office Art aux rapports, tableaux et graphiques qui peuvent utiliser des champs dans le projet actif. Toutefois, Project n’implémente pas toutes les opérations ShapeRange . Par exemple, Project ne prend pas en charge l’alignement automatique, la distribution, le regroupement ou la fusion de formes dans une plage de formes.

Une plage de formes peut contenir une seule forme ou toutes les formes du rapport. Vous pouvez inclure les formes de votre choix pour construire une plage de formes. Par exemple, vous pouvez construire une collection ShapeRange qui contient les trois premières formes d’un rapport, toutes les formes d’un rapport ou uniquement les formes triangulaires.

[!REMARQUE] La plupart des opérations que vous pouvez faire avec un objet Shape, vous pouvez également faire avec un objet ShapeRange qui contienne une seule forme. Certaines opérations, lorsqu’elles sont effectuées sur un objet ShapeRange qui contient plusieurs formes, des formes de types différents ou une forme qui n’est pas entièrement prise en charge dans Project, peuvent provoquer une erreur. Par exemple, si une plage de formes contient un rectangle et un graphique et que vous essayez de définir la propriété Fill , l’instruction échoue parce qu’un graphique n’implémente pas la propriété Fill . Dans d’autres cas, par exemple, si vous utilisez la propriété Rotation sur une plage de formes qui contient un graphique et un rectangle, Project fait pivoter le rectangle mais ignore silencieusement le graphique.

Exemples

Vous pouvez renvoyer un ensemble de formes spécifiées par le numéro d’index ou le nom de la forme. Utilisez Shapes.Range(index), où index est un tableau de numéros ou de noms d’index. Par exemple, les deux affirmations suivantes sont valides :

Set myRange1 = theReport.Shapes.Range(Array(1, 2))
Set myRange2 = theReport.Shapes.Range(Array("Textbox 1", "Textbox 2"))

Pour créer un objet ShapeRange qui contient toutes les formes du rapport, utilisez une instruction telle que celle-ci :

Set allShapes = theReport.Shapes.Range(Array(1, theReport.Shapes.Count))

Pour créer un objet ShapeRange avec un seul membre de la collection Shape , vous pouvez utiliser des instructions telles que celles-ci :

Set myRange3 = theReport.Shapes.Range(2)
Set myRange4 = theReport.Shapes.Range("Rectangle 2")

Pour effectuer une opération sur une forme unique d’une collection ShapeRange , vous pouvez utiliser des instructions telles que celles-ci :

myRange1(2).Fill.ForeColor.RGB = RGB(120, 120, 80)
myRange1("Textbox 2").Fill.ForeColor.RGB = RGB(120, 120, 80)

Vous pouvez également effectuer une opération directement sur un objet Shape , sans utiliser de plage de formes.

theReport.Shapes("Big rectangle").Fill.ForeColor.RGB = RGB(120, 120, 80)

Méthodes

Propriétés

Voir aussi

Objet Shapes

Objet Shape

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.