Shapes Property

Applies To

Document object, HeaderFooter object.

Description

Returns a Shapes collection that represents all the Shape objects in the specified document, header, or footer. This collection can contain drawings, shapes, pictures, OLE objects, ActiveX controls, text objects, and callouts. Read-only.

Remarks

The Shapes property, when applied to a document, returns all the Shape objects in the main story of the document, excluding the headers and footers. When applied to a HeaderFooter object, the Shapes property returns all the Shape objects found in all the headers and footers in the document.

See Also

ConvertToInlineShape method, ConvertToShape method, GroupShapes collection object, InlineShapes collection object.

Example

This example creates a new document, adds a rectangle to it that's 100 points wide and 50 points high, and sets the upper-left corner of the rectangle to be 5 points from the left edge and 25 points from the upper-left corner of the page.

Set myDoc = Documents.Add
myDoc.Shapes.AddShape msoShapeRectangle, 5, 25, 100, 50

This example sets the fill texture for all the shapes in the active document.

For each s in ActiveDocument.Shapes
    s.Fill.PresetTextured msoTextureOak
Next s

This example adds a shadow to the first shape in the active document.

Set myShape = ActiveDocument.Shapes(1)
myShape.Shadow.Type = msoShadow6

This example displays a count of all the shapes in the headers and footers in the active document.

MsgBox ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.Count