Objet Shapes (PowerPoint)
Collection de tous les objets Shape sur 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 souhaitez travailler avec 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 que vous souhaitez utiliser. Pour obtenir une vue d’ensemble sur l’utilisation d’une seule forme ou de plusieurs formes, consultez Utilisation des formes (objets dessinés).
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
Si vous souhaitez effectuer une opération (comme supprimer ou définir une propriété) sur toutes les formes d’un document en même temps, utilisez la méthode Rangesans argument 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 la méthode AddCallout, AddComment, AddConnector, AddCurve, AddLabel, AddLine, AddMediaObject, AddOLEObject, AddPicture, AddPlaceholder, AddPolyline, AddShape, AddTable, AddTextbox, AddTextEffect ou AddTitlepour créer une forme et l’ajouter à la collection Shapes . Utilisez la méthodeBuildFreeform conjointement avec la méthodeConvertToShapepour créer une nouvelle forme libre et l’ajouter à la collection. L’exemple suivant permet d’ajouter un rectangle au document actif.
ActivePresentation.Slides(1).Shapes.AddShape Type:=msoShapeRectangle, _
Left:=50, Top:=50, Width:=100, Height:=200
Utilisez Shapes (index), où index est le nom ou le numéro d’index de la forme, pour renvoyer un seul objet Shape . L’exemple suivant montre comment affecter une ombre prédéfinie au remplissage de la forme un figurant dans la présentation active.
ActivePresentation.Slides(1).Shapes(1).Fill _
.PresetGradient Style:=msoGradientHorizontal, Variant:=1, _
PresetGradientType:=msoGradientBrass
Utilisez Shapes.Range (index), où index est le nom ou le numéro d’index de la forme ou un tableau de noms de forme ou de numéros d’index, pour renvoyer une collection ShapeRange qui représente un sous-ensemble de la collection Shapes . L’exemple suivant montre comment définir le motif de remplissage des formes 1 et 3 de la présentation active.
ActivePresentation.Slides(1).Shapes.Range(Array(1, 3)).Fill _
.Patterned Pattern:=msoPatternHorizontalBrick
Utilisez Shapes.Placeholders (index), où index est le numéro d’espace réservé, pour renvoyer un objet Shape qui représente un 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
Propriétés
| Nom |
|---|
| Application |
| Count |
| Creator |
| HasTitle |
| Parent |
| Placeholders |
| Title |
Voir aussi
Référence du modèle objet PowerPoint
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.
Commentaires
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultez https://aka.ms/ContentUserFeedback.
Envoyer et afficher des commentaires pour