Have just started sing Visio. I am programatically dropping masters onto a page. I now need to make the page fit the masters. How can I accomplish this.
The following code will set the page size
ActivePage.Shapes("thePage".Cells("PageWidth".Formula = 7.5
ActivePage.Shapes("thePage".Cells("PageHeight".Formula = 15
This code will show you what it is set to
Debug.Print ActivePage.Shapes("thePage".Cells("PageWidth"
Debug.Print ActivePage.Shapes("thePage".Cells("PageHeight"
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.