Re: how can I set the zoom for multiple pages at once?

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Hi,

you can't select more than 1 pages at once as in Excel
you could achieve this through an example is:
Sub zoompage()
Dim vispags As Visio.Pages
Set vispags = ActiveDocument.Pages
Dim fullcount As Integer
fullcount = vispags.Count
For i = 1 To fullcount
Application.ActiveWindow.Page = Application.ActiveDocument.Pages.Item(i)
Application.ActiveWindow.zoom = 2#
Next
End Sub

this macro will zoom all pages to 200%
if you want to achieve this for a visio drawing saved as an html page you
need to roam around in the html code to set this manually for each page.

René

"slspidgeon" <slspidgeon@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:756FEAFD-CC97-4D28-9BE2-9E9E46228C4A@xxxxxxxxxxxxxxxx
there doesn't seem to be any way to select multiple pages at once, like
selecting multiple worksheets at once in excel. is there any other way
to,
for example, set all pages to 50% zoom at once for easy viewing online?


.

Quantcast