Visio 2019 OrgChart - Set page size

[phathuynh27]

Hello all, I have 40 pages Org Chart that are created via a script. How do I set page size (17in x 11in) for all of them. I tried creating a MACRO but it did not work for all pages. Thank you so much.

[Guessed]

Try a macro like this

Sub SetPageSizes()
  Dim aPage As Page
  For Each aPage In ActiveDocument.Pages
    aPage.PageSheet.CellsSRC(visSectionObject, visRowPage, visPageWidth).FormulaU = "17 in"
    aPage.PageSheet.CellsSRC(visSectionObject, visRowPage, visPageHeight).FormulaU = "11 in"
  Next aPage
End Sub