Sub Test() With ActiveDocument .SaveSettings .ResetSettings .Unit = cdrMillimeter .DrawingOriginX = 0 .DrawingOriginY = 0 .ActiveLayer.CreateEllipse2 0, 0, 50 .RestoreSettings End WithEnd Sub