Slide.Shapes property (PowerPoint)
Returns a Shapes collection that represents all the elements that have been placed or inserted on the specified slide, slide master, or range of slides. Read-only.
expression A variable that represents a Slide object.
The Shapes collection returned can contain the drawings, shapes, OLE objects, pictures, text objects, titles, headers, footers, slide numbers, and date and time objects on a slide, or on the slide image on a notes page.
This example adds a rectangle that's 100 points wide and 50 points high, and whose upper-left corner is 5 points from the left edge of slide one in the active presentation and 25 points from the top of the slide.
Set firstSlide = ActivePresentation.Slides(1) firstSlide.Shapes.AddShape msoShapeRectangle, 5, 25, 100, 50
This example sets the fill texture for shape three on slide one in the active presentation.
Set newRect = ActivePresentation.Slides(1).Shapes(3) newRect.Fill.PresetTextured msoTextureOak
Assuming that slide one in the active presentation contains a title, both the second and third lines of code in the following example set the title text on slide one in the presentation.
Set firstSl = ActivePresentation.Slides(1) firstSl.Shapes.Title.TextFrame.TextRange.Text = "Some title text" firstSl.Shapes(1).TextFrame.TextRange.Text = "Other title text"
Assuming that shape two on slide two in the active presentation contains a text frame, the following example adds a series of paragraphs to the slide. Note that
Chr(13) is used to insert paragraph marks within the text.
Set tShape = ActivePresentation.Slides(2).Shapes(2) tShape.TextFrame.TextRange.Text = "First Item" & Chr(13) & _ "Second Item" & Chr(13) & "Third Item"
For most slide layouts, the first shapes on the slide are text placeholders, and the following example accomplishes the same task as the preceding example.
Set testShape = ActivePresentation.Slides(2).Shapes.Placeholders(2) testShape.TextFrame.TextRange.Text = "First Item" & _ Chr(13) & "Second Item" & Chr(13) & "Third Item"
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.