This example adds an oval with a patterned fill to myDocument
.
Set myDocument = ActiveDocument
With myDocument.Shapes.AddShape(msoShapeOval, 60, 60, 80, 40).Fill
.ForeColor.RGB = RGB(128, 0, 0)
.BackColor.RGB = RGB(0, 0, 255)
.Patterned msoPatternDarkVertical
End With