Programmically setting the ActivePage

[vgogo]

I am trying to change the active page in Visio 2002 to correspond to a page I choose.

There doesnt seem to be any mechanism for showing a page from the pages list or changing the active page.

Does anyone know how such a thing could be done?

 

[vgogo]

I found a solution to my problem, for those interested see below.

Suppose, you have a reference to the Visio Application
Object in a variable "VisAppObj", then you can display
any page using ...

VisAppObj.ActiveWindow.Page = "Page-2" ' Name of the Page


It should work in your Embedded situation also.

 

[Cotton9]

vgogo,
Looks like you know more than I about Visio and VBA so here goes. I am new at this VBA stuff so don't shoot me.
We have network layout consisting of 3 pages (so far). Each page needs a different page setup to print correctly (readable). How do I write a macro to print all the pages (by page name or number) and adjust the page setup for each?

The first page must be set to print 1 page height and 2 page width on landscape. The seconds need 1 page height and 1 page width on portrait. The third prints landscape as many pages as needed.

Is there a macro record in Visio line in Excell?

Thanks,

Daryl

 

[VisioMVP]

Visio does not have a macro recorder.

There are samples of Controlling Visio by VBA at

http://www.magma.ca/~lancucki/Visio_VBA_Information.htm,

there may be a sample for printing.

John... Visio MVP