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

Title: Is there a way to ZOOM all pages to the same size?
Post by: Jeb Raitt on December 05, 2017, 08:53:47 PM

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?

Title: Re: Is there a way to ZOOM all pages to the same size?
Post by: Surrogate on December 06, 2017, 05:07:27 AM

This simple macro fit-to-page all pages in document
1. Select tab View, and press button Macros
(http://www.visguy.com/wp-content/uploads/2010/05/visioi-view-add-ons-ribbon.png)
2. Double click at left side ThisDocument, after that you activate right part of window (Project Explorer)
(http://visio.artberg.ru/biblio/ris04002.gif)
3. Place this code in right part of window (Code editor)

Code Select

Sub PageZoom()
Dim pg As Page
For Each pg In ActiveDocument.Pages
    ActiveWindow.Page = pg
    ActiveWindow.ViewFit = visFitPage ' fit to page
Next
End Sub

(https://s-media-cache-ak0.pinimg.com/originals/75/d4/a2/75d4a20b16f42f3ca24f26e3b650cd1c.png)
4. Press key Run (with triangle) at Debug toolbar
(http://flylib.com/books/2/25/1/html/2/images/i07-01.jpg)

Visio Guy

Visio Discussions => General Visio => Topic started by: Jeb Raitt on December 05, 2017, 08:53:47 PM