| Name | Type | Description |
|---|---|---|
| Width |
Double
|
|
| Height |
Double
|
Sub Test() Dim sx As Double, sy As Double ActivePage.GetSize sx, sy ActiveLayer.CreateRectangle2 0, 0, sx, sy End Sub