page height 1

[RobBroekhuis]

I'm trying to fill the active page with a pattern, but can't find out how to get the dimensions of the page. Document.paperheight gives me the size of the printed page, which is not necessarily the same.
Thanks
Rob

 

[VisioMVP]

Try
Set pageObj = Visio.Application.ActivePage
Set shapeObj = pageObj.PageSheet
Set celObjPagH = shapeObj.Cells("PageHeight&quot
Set celObjPagW = shapeObj.Cells("PageWidth&quot
Debug.Print celObjPagH.Units; " "; celObjPagW.Units

John...