Select multiple pages

[DebraH]

I want to set the page size for all pages in a visio file. I also want to
set the header for each page at once. How can I select all pages at once?

 

[Chris Roth [ Visio MVP ]]

As far as I know, there's no way to do this manually. The best way is
through automation/scripting. Do you or anyone know how to program in
VBA/Visual Basic?

A VBA script would look something like this:

Sub Manipulate
dim pg as visio.page
for each pg in ThisDocument.Pages
pg.PageSheet.Cells("PageWidth").ResultIU = 8.5 '...inches
pg.PageSheet.Cells("PageHeight").ResultIU = 11 '...inches
next

'Header is a document property
ThisDocument.HeaderCenter = "&p"

End Sub
--

Hope this helps,

Chris Roth
Visio MVP