New pages in a Visio document

[neilkeron]

I have a Visio document with several A4 pages. I am using VBA to insert a new page which I want to be A3. I am using the Add method and am using an A3 background for the new drawing but is still opens as A4. Is there a way to do a Page Setup from VBA?

 

[VisioMVP]

Try:
Public Sub PageSize()

' This routine will change the paper size
Debug.Print ActivePage.Shapes("thePage&quot.Cells("PageWidth&quot
Debug.Print ActivePage.Shapes("thePage&quot.Cells("PageHeight&quot

ActivePage.Shapes("thePage&quot.Cells("PageWidth&quot.Formula = 7.5
ActivePage.Shapes("thePage&quot.Cells("PageHeight&quot.Formula = 15

Debug.Print ActivePage.Shapes("thePage&quot.Cells("PageWidth&quot
Debug.Print ActivePage.Shapes("thePage&quot.Cells("PageHeight&quot

ActivePage.Shapes("thePage&quot.Cells("PageWidth&quot.Formula = 8.5
ActivePage.Shapes("thePage&quot.Cells("PageHeight&quot.Formula = 11

Debug.Print ActivePage.Shapes("thePage&quot.Cells("PageWidth&quot
Debug.Print ActivePage.Shapes("thePage&quot.Cells("PageHeight&quot

End Sub

John... Visio MVP