set the size of the active page in a macro

[sianarun]

Hi, I am writing a macro, and need to resize the active page according to the
shapes that I place on the page. Does anyone know how I can set a custom size
for the activepage within a macro? thanks for the help

 

[AlEdlund]

at a high level
select the active page
select the active page's page sheet
set the pageheight and pagewidth
al