Set myDocument = ActiveDocument With myDocument.Shapes.AddShape(ksoShapeOval, 100, 100, 100, 300) While .ZOrderPosition > 2 .ZOrder ksoSendBackward Wend End With