Set myDocument = ActiveDocument myDocument.Shapes.AddShape(ksoShapeCube, _ 50, 50, 100, 200).LockAspectRatio = ksoTrue