Multiple layers in multiple pages

[appeng]

I am running Visio 2000 and have several pages and each page may have several
layers. The layer name can be the same on multiple pages. The only way I know
to make the same layer name active, inactive, set print, etc. on all pages is
to go to each page and check or uncheck the associated box.

Is there a way to do this once and have all pages that include that layer
change automatically? As my understanding is that recording macros is only
available in Visio 2003 and later, I am not able to record a macro to get the
basic requirements to generate a good macro to do this. Is there any examples
of the code that I can put in VBA?

 

[junethesecond]

http://www.mvps.org/visio/VBA.htm
has VBA sample you are looking for.
quate:
Visio VBA Information
Layer - Listing Shapes:
This routine will list all the shapes on each layer on each page of the
current document.l

 

[appeng]

Thank You!

This is exactly what I needed to get started.
Days of looking through books and in just a few minutes you got me where I
needed to look.

Once again many Thanks.

 

[junethesecond]

But, may be better tweaked a little, that is.

Public Sub LayersContent2()
Dim PagObj As Visio.Page
Dim layersObj As Visio.Layers, layerObj As Visio.Layer
Dim shpsObj As Visio.Shapes, shpObj As Visio.Shape
Dim I As Long, N As Long

For Each PagObj In ActiveDocument.Pages
For Each shpObj In PagObj.Shapes
N = shpObj.LayerCount
If N > 0 Then
For I = 1 To N
Set layerObj = shpObj.Layer(I)
Debug.Print PagObj.Name; " "; shpObj.Name; " ";
layerObj.Name
Next
End If
Next
Next
End Sub

 

[John Marshall, MVP]

Thanks, I've added your suggestion to the page.

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