Set mydocument = ActivePresentation.Slides(1)
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
' Sets formatting for default shapes
mydocument.Shapes(1).Select ksoTrue
Windows(1).Selection.ShapeRange.SetShapesDefaultProperties
End With
' New shape has default formatting
.AddTextbox ksoTextOrientationHorizontal, 90, 90, 40, 30
End With