Referencing a drawing page by number instead of name

[Jeff_KC]

I'm trying to create a page index that will automatically display the page
names. However, I cannot find a way to reference the pages besides the name
(Drawing.vsdage Name). Is there a way to reference the pages by number?

 

[Al Edlund]

check John Marshall's site (www.mvps.org/visio) for some examples on
creating visio indexes.
al

 

[John Marshall, MVP]

Visio has a Pages collection that you can reference by number.
Dim VsoPages as Visio.Pages

For I = 1 to VsoPages.Count
debug.print VsoPages(I).Name

You should check to make sure it is not a background page.

if VsoPages(I).Background = false then

John... Visio MVP

Need stencils or ideas? http://www.mvps.org/visio/3rdparty.htm
Need VBA examples? http://www.mvps.org/visio/VBA.htm
Common Visio Questions http://www.mvps.org/visio/common_questions.htm
Visio Wishlist http://www.mvps.org/visio/wish_list.htm