Is there a way to ZOOM all pages to the same size?

Started by Jeb Raitt, December 05, 2017, 08:53:47 PM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Jeb Raitt

Generally, in a multi-page Visio drawing, each page's zoom level is set independedntly.

Is there a way to set all pages of a multi-page drawing to the same size?

Surrogate

#1
This simple macro fit-to-page all pages in document
1. Select tab View, and press button Macros

2. Double click at left side ThisDocument, after that you activate right part of window (Project Explorer)

3. Place this code in right part of window (Code editor)
Sub PageZoom()
Dim pg As Page
For Each pg In ActiveDocument.Pages
    ActiveWindow.Page = pg
    ActiveWindow.ViewFit = visFitPage ' fit to page
Next
End Sub


4. Press key Run (with triangle) at Debug toolbar