How can I select all pages to change inches to centimeters

[Leo]

2 dozen pages have the ruler set to inches. can we globally change instead of
going page by page?

 

[John Marshall, MVP]

You can use some VBA code like:

Sub Macro1()

Dim PagObj As Visio.Page

For Each PagObj In ActiveDocument.Pages
PagObj.CellsSRC(visSectionObject, visRowPage, visPageScale).FormulaU =
"1 cm"
PagObj.CellsSRC(visSectionObject, visRowPage,
visPageDrawingScale).FormulaU = "1 cm"
Next PagObj

End Sub


John... Visio MVP

Need stencils or ideas? http://visio.mvps.org/3rdparty.htm
Need VBA examples? http://visio.mvps.org/VBA.htm
Visio Wishlist http://visio.mvps.org/wish_list.htm