Table of contents
TOC
Réduire la table des matières
Développer la table des matières

Objet Shapes (PowerPoint)

office 365 dev account|Dernière mise à jour: 02/03/2018
|
1 Contributeur

Collection de tous les objets Shape de la diapositive spécifiée.

Remarques

Chaque objet Shape représente un objet dans la couche de dessin, tel qu'une forme automatique, une forme libre, un objet OLE ou une image.

Remarque Si vous voulez utiliser un sous-ensemble des formes d'un document (par exemple, pour effectuer une opération portant uniquement sur les formes automatiques du document ou sur des formes sélectionnées), vous devez construire une collection ShapeRange contenant les formes souhaitées. Pour savoir comment utiliser une forme unique ou plusieurs formes à la fois, consultez la rubrique relative à l'utilisation des formes (objets Dessins).

Exemple

Utilisez la propriété Shapes pour renvoyer la collection Shapes. L'exemple suivant montre comment sélectionner toutes les formes de la présentation active.

ActivePresentation.Slides(1).Shapes.SelectAll

Remarque Pour effectuer une opération (par exemple, supprimer ou définir une propriété) sur toutes les formes d'un document à la fois, utilisez la méthode Rangesans argument afin de créer un objet ShapeRange qui contient toutes les formes de la collection Shapes. Ensuite, il vous suffit d'appliquer la méthode ou la propriété correspondant à l'objet ShapeRange.

Utilisez la méthode AddCallout, AddComment, AddConnector, AddCurve, AddLabel, AddLine, AddMediaObject, AddOLEObject, AddPicture, AddPlaceholder, AddPolyline, AddShape, AddTable, AddTextbox, AddTextEffectou AddTitlepour créer une forme et l'ajouter à la collection Shapes. Utilisez la méthode BuildFreeformavec la méthode ConvertToShapepour créer une forme libre et l'ajouter à la collection. L'exemple suivant montre comment ajouter un rectangle dans la présentation active.

ActivePresentation.Slides(1).Shapes.AddShape Type:=msoShapeRectangle, _

    Left:=50, Top:=50, Width:=100, Height:=200

Pour renvoyer un seul objet Shape, utilisez Shapes (index), où « index » correspond au nom ou au numéro d'index de la forme. L'exemple suivant montre comment définir le niveau d'ombre de l'arrière-plan de la forme 1 dans la présentation active.

ActivePresentation.Slides(1).Shapes(1).Fill _

    .PresetGradient Style:=msoGradientHorizontal, Variant:=1, _

    PresetGradientType:=msoGradientBrass

Utilisez Shapes.Range (index), où « index » correspond au nom ou au numéro d'index de la forme, ou à un tableau de noms ou de numéros d'index de forme, pour renvoyer une collection ShapeRange qui représente un sous-ensemble de la collection Shapes. L'exemple suivant montre comment définir le modèle de remplissage des formes 1 et 3 dans la présentation active.

ActivePresentation.Slides(1).Shapes.Range(Array(1, 3)).Fill _

    .Patterned Pattern:=msoPatternHorizontalBrick

Pour renvoyer un objet Shape qui représente un espace réservé, utilisez Shapes.Placeholders (index), où « index » correspond au numéro de l'espace réservé. Si la diapositive indiquée possède un titre, utilisez Shapes.Placeholders(1) ou Shapes.Title pour renvoyer l'espace réservé du titre. L'exemple suivant montre comment ajouter une diapositive dans la présentation active et du texte dans le titre et le sous-titre (le sous-titre est le deuxième espace réservé d'une diapositive ayant cette mise en page).

With ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).Shapes

    .Title.TextFrame.TextRange = "This is the title text"

    .Placeholders(2).TextFrame.TextRange = "This is subtitle text"

End With

Méthodes

Nom
AddCallout
AddChart2
AddConnector
AddCurve
AddInkShapeFromXML
AddLabel
AddLine
AddMediaObject2
AddMediaObjectFromEmbedTag
AddOLEObject
AddPicture
AddPicture2
AddPlaceholder
AddPolyline
AddShape
AddSmartArt
AddTable
AddTextbox
AddTextEffect
AddTitle
BuildFreeform
Item
Paste
PasteSpecial
Range
SelectAll

Propriétés

Nom
Application
Count
Creator
HasTitle
Parent
Placeholders
Title

Voir aussi

Concepts

Référence du modèle objet PowerPoint

© 2018 Microsoft