Partager via

Propriété Page.Shapes (Publisher)

  • Article

Renvoie une collection Shapes qui représente tous les objets Shape de la composition spécifiée. Cette collection peut contenir des dessins, formes, images, OLE objets, ActiveX les contrôles, objets de texte et légendes.

Syntaxe

expression. Formes

Expression Variable qui représente un objet Page .

Remarques

Pour plus d’informations sur le renvoi d’un seul membre d’une collection, consultez Renvoi d’un objet à partir d’une collection.

Exemple

Cet exemple ajoute un rectangle à la première page de la composition active.

Sub AddNewRectangle() 
 ActiveDocument.Pages(1).Shapes.AddShape Type:=msoShapeRectangle, _ 
 Left:=5, Top:=25, Width:=100, Height:=50 
End Sub

Cet exemple définit la texture de remplissage pour toutes les formes de la composition active. Cet exemple suppose qu’il existe au moins une forme dans la composition active.

Sub SetNewTextureForAllShapes() 
 Dim shp As Shape 
 For Each shp In ActiveDocument.Pages(1).Shapes 
 shp.Fill.PresetTextured PresetTexture:=msoTextureOak 
 Next shp 
End Sub

Cet exemple ajoute une ombre à la première forme de la composition active. Cet exemple suppose qu’il existe au moins une forme dans la composition active.

Sub SetShadowForFirstShape() 
 ActiveDocument.Pages(1).Shapes(1).Shadow.Type = msoShadow6 
End Sub

Cet exemple affiche un décompte de toutes les formes de la première page de la composition active. Cet exemple suppose qu’il existe au moins une forme dans la composition active.

Sub CountShapesOnFirstPage() 
 MsgBox "You have " & ActiveDocument.Pages(1) _ 
 .Shapes.Count & " shapes on the first page." 
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.