changing default layer property color or all at once

[Barry Rowland]

Hi All

I just discovered the layer properties dialog option to
set layer colors [temporarily]. I'm using it for a
presentation to fade layaers in and out on a model. BUT
how can I change either the default layer property color
to one of my choosing or a selection of layers all at
once??

It seems the default is color 19 (grey). I can set the
color 1 by 1 for each layer but that's tedious for many
layers - and it feels like 19 came back

TIA
Barry

 

[al edlund]

check over at john marshall's site (www.mvps.org/visio), he has some vba examples
on changing layer colors.
al

 

[Barry Rowland]

check over at john marshall's site (www.mvps.org/visio),

he has some vba examples on changing layer colors.

Thanks Al. I did that but couldn't see anything relevant
to my layer color query. Did you have something specific
in mind? Can this only be done using VBA? ... I was
looking for a solution using inbuilt functionality - any
guidance?

TIA
Barry

 

[John Marshall, MVP]

Try

Dim vsoLayer1 As Visio.Layer
Set vsoLayer1 = Application.ActiveWindow.Page.Layers.Item(1)
' Set the colour to blue
vsoLayer1.CellsC(visLayerColor).FormulaU = "4"


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