Set mydocument = ActiveDocument
With mydocument.Shapes
With .AddShape(ksoShapeRectangle, 5, 5, 80, 60)
With .Fill
.ForeColor.RGB = RGB(0, 0, 255)
.BackColor.RGB = RGB(0, 204, 255)
.Patterned
KsoPatternHorizontalBrick
End With
' Set formatting for default shapes
mydocument.Shapes(1).Select ksoTrue
Selection.ShapeRange.SetShapesDefaultProperties
End With
' New shape has default formatting
.AddTextbox ksoTextOrientationHorizontal, 90, 90, 40, 30
End With