Propriété Slide.Shapes (PowerPoint)

  • Article

Renvoie une collection Shapes qui représente tous les éléments qui ont été placés ou insérés sur la diapositive, le masque des diapositives ou la plage de diapositives spécifiée. En lecture seule.

Syntaxe

expression. Formes

Expression Variable qui représente un objet Slide .

Valeur renvoyée

Formes

Remarques

La collection Shapes retournée peut contenir les dessins, les formes, les objets OLE, les images, les objets texte, les titres, les en-têtes, les pieds de page, les numéros de diapositive et les objets de date et d’heure d’une diapositive ou sur l’image de diapositive d’une page de notes.

Exemple

Cet exemple ajoute un rectangle de 100 points de largeur et 50 de hauteur, dont l’angle supérieur gauche est à 5 points du bord gauche de la diapositive 1 dans la présentation active, et 25 points à partir du bord supérieur de la diapositive.

Set firstSlide = ActivePresentation.Slides(1)

firstSlide.Shapes.AddShape msoShapeRectangle, 5, 25, 100, 50

Cet exemple définit le texte de remplissage de la diapositive 1 de la présentation active.

Set newRect = ActivePresentation.Slides(1).Shapes(3)

newRect.Fill.PresetTextured msoTextureOak

En supposant que la diapositive 1 de la présentation active contient un titre, les deuxième et troisième lignes du code de l'exemple suivant définissent le texte de titre de la diapositive 1 de la présentation.

Set firstSl = ActivePresentation.Slides(1)

firstSl.Shapes.Title.TextFrame.TextRange.Text = "Some title text"

firstSl.Shapes(1).TextFrame.TextRange.Text = "Other title text"

En supposant que la forme 2 de la diapositive 2 de la présentation active contient un cadre de texte, l'exemple suivant ajoute une série de paragraphes à la diapositive. Notez que Chr(13) est utilisé pour insérer des marques de paragraphe dans le texte.

Set tShape = ActivePresentation.Slides(2).Shapes(2)

tShape.TextFrame.TextRange.Text = "First Item" & Chr(13) & _
    "Second Item" & Chr(13) & "Third Item"

Dans la plupart des mises en page, les premières formes de la diapositive sont des espaces réservés de texte ; l'exemple suivant accomplit la même tâche que l'exemple précédent.

Set testShape = ActivePresentation.Slides(2).Shapes.Placeholders(2)

testShape.TextFrame.TextRange.Text = "First Item" & _
    Chr(13) & "Second Item" & Chr(13) & "Third Item"

Voir aussi

Objet Slide

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.