Dim docNew As Document
'Create a new document and adds a shape
Set docNew = Documents.Add
docNew.Shapes.AddShape Type:=ksoShapeRectangle, _
Left:=50, Top:=50, Width:=100, Height:=200
'Format the shape
docNew.Shapes(1).Fill.ForeColor _
.RGB = RGB(Red:=200, Green:=15, Blue:=95)