cannot set page orientation for every page

[page orientation]

How can I set each page's paper orientation to either Landscape or Portrait
whenever I add a page using Visio automation or VBA in macros?

 

[AlEdlund]

something like this
al

set visPage = application.activepage
Set visPageSheet = visPage.PageSheet
Set visCell = visPageSheet.Cells("PageWidth")
SetCellValueToString visCell, "11in"
Set visCell = visPageSheet.Cells("PageHeight")
SetCellValueToString visCell, "8.5in"

 

[John... Visio MVP]

The concept of Landscape/Portrait does not exist in Visio automation. You
need to set the H & W to the appropriate values as Al's message indicates.

John... Visio MVP