Sub Test() Dim sx As Double, sy As Double ActivePage.GetSize sx, sy ActiveLayer.CreateRectangle2 0, 0, sx, syEnd Sub