2 dozen pages have the ruler set to inches. can we globally change instead of going page by page?
L Leo May 3, 2007 #1 2 dozen pages have the ruler set to inches. can we globally change instead of going page by page?
J John Marshall, MVP May 14, 2007 #2 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
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