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 primary header and footer of the first section of the active document.
MsgBox ActiveDocument.Sections(1). _
Headers(wdHeaderFooterPrimary).Shapes.Count