Shapes Collection Object

Multiple objects
Multiple objects

A collection of all the Shape objects on the specified slide. Each Shape object represents an object in the drawing layer, such as an AutoShape, freeform, OLE object, or picture.

Note  If you want to work with a subset of the shapes on a document — for example, to do something to only the AutoShapes on the document or to only the selected shapes — you must construct a ShapeRange collection that contains the shapes you want to work with. For an overview of how to work either with a single shape or with more than one shape at a time, see Working with Shapes (Drawing Objects ).

Using the Shapes Collection

Use the Shapes property to return the Shapes collection. The following example selects all the shapes in the active presentation.


Note  If you want to do something (like delete or set a property) to all the shapes on a document at the same time, use the Range method with no argument to create a ShapeRange object that contains all the shapes in the Shapes collection, and then apply the appropriate property or method to the ShapeRange object.

Use the AddCallout , AddComment , AddConnector , AddCurve , AddLabel , AddLine , AddMediaObject , AddOLEObject , AddPicture , AddPlaceholder , AddPolyline , AddShape , AddTable , AddTextbox , AddTextEffect , or AddTitle method to create a new shape and add it to the Shapes collection. Use the BuildFreeform method in conjunction with the ConvertToShape method to create a new freeform and add it to the collection. The following example adds a rectangle to the active presentation.

ActivePresentation.Slides(1).Shapes.AddShape Type:=msoShapeRectangle, _
    Left:=50, Top:=50, Width:=100, Height:=200

Use Shapes(index), where index is the shape's name or index number, to return a single Shape object. The following example sets the fill to a preset shade for shape one in the active presentation.

ActivePresentation.Slides(1).Shapes(1).Fill _
    .PresetGradient Style:=msoGradientHorizontal, Variant:=1, _

Use Shapes.Range(index), where index is the shape's name or index number or an array of shape names or index numbers, to return a ShapeRange collection that represents a subset of the Shapes collection. The following example sets the fill pattern for shapes one and three in the active presentation.

ActivePresentation.Slides(1).Shapes.Range(Array(1, 3)).Fill _
    .Patterned Pattern:=msoPatternHorizontalBrick

Use Shapes.Placeholders(index), where index is the placeholder number, to return a Shape object that represents a placeholder. If the specified slide has a title, use Shapes.Placeholders(1) or Shapes.Title to return the title placeholder. The following example adds a slide to the active presentation and then adds text to both the title and the subtitle (the subtitle is the second placeholder on a slide with this layout).

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

Properties | Application Property | Count Property | Creator Property | HasTitle Property | Parent Property | Placeholders Property | Title Property

Methods | AddCallout Method | AddComment Method | AddConnector Method | AddCurve Method | AddDiagram Method | AddLabel Method | AddLine Method | AddMediaObject Method | AddOLEObject Method | AddPicture Method | AddPlaceholder Method | AddPolyline Method | AddShape Method | AddTable Method | AddTextbox Method | AddTextEffect Method | AddTitle Method | BuildFreeform Method | Item Method | Paste Method | PasteSpecial Method | Range Method | SelectAll Method

Parent Objects | Master Object | Slide Object | SlideRange Collection

Child Objects | Placeholders Object | Shape Object

See Also | Working with shapes (drawing objects)