Sub Test() Dim d As Document Set d = ActiveDocument d.DrawingOriginX = 0 d.DrawingOriginY = 0 ActiveLayer.CreateRectangle 0, 0, 1, 1 d.DrawingOriginX = -d.ActivePage.SizeWidth / 2 d.DrawingOriginY = -d.ActivePage.SizeHeight / 2 ActiveLayer.CreateEllipse 0, 0, 1, 1End Sub