Objet Shapes (Éditeur)
Collection d'objets Shape qui représentent toutes les formes d'une page d'une composition. Chaque objet Shape représente un objet dans la couche dessin, comme une forme automatique, une forme libre, un objet OLE ou une image.
Remarque
Si vous souhaitez utiliser un sous-ensemble des formes d’un document ( par exemple, pour effectuer une action uniquement sur les formes automatiques du document ou uniquement sur les formes sélectionnées), vous devez construire une collection ShapeRange qui contient les formes avec lesquelles vous souhaitez travailler.
Remarques
Utilisez la propriété Page.Shapes pour renvoyer la collection Shapes . Utilisez Shapes (index), où index est le numéro d’index, pour renvoyer un seul objet Shape .
Remarque
Si vous souhaitez effectuer une opération (par exemple supprimer ou définir une propriété) sur toutes les formes d’une composition en même temps, utilisez la méthode Range pour créer un objet ShapeRange qui contient toutes les formes de la collection Shapes , puis appliquez la propriété ou la méthode appropriée à l’objet ShapeRange .
Utilisez l’une des méthodes suivantes de la collection Shapes pour ajouter une forme à une composition et renvoyer un objet Shape qui représente la forme nouvellement créée :
- AddCallout
- AddConnector
- AddCurve
- AddLabel
- AddLine
- AddOLEObject
- AddPolyline
- AddShape
- AddTextbox
- AddTextEffect
Exemple
L'exemple suivant sélectionne toutes les formes sur la première page de la composition active.
Sub SelectAllShapes()
ActiveDocument.Pages(1).Shapes.SelectAll
End Sub
L'exemple suivant ajoute une nouvelle forme à la composition active.
Sub AddNewShape()
ActiveDocument.Pages(1).Shapes.AddShape Type:=msoShapeFoldedCorner, _
Left:=50, Top:=50, Width:=100, Height:=200
End Sub
L'exemple suivant retourne horizontalement la forme 1 sur la première page de la composition active.
Sub FlipShape()
ActiveDocument.Pages(1).Shapes(1).Flip FlipCmd:=msoFlipHorizontal
End Sub
Méthodes
- AddBuildingBlock
- AddCallout
- AddCatalogMergeArea
- AddCatalogMergeFieldToCanvas
- AddConnector
- AddCurve
- AddEmptyPictureFrame
- AddGroupWizard
- AddLabel
- AddLine
- AddOLEObject
- AddPicture
- AddPolyline
- AddShape
- AddTable
- AddTextbox
- AddTextEffect
- AddWebControl
- AddWebNavigationBar
- AddWordArt
- BuildFreeform
- FindShapeByWizardTag
- Élément
- Paste
- Range
- SelectAll
Propriétés
Voir aussi
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.