How to Change Color of a Group of Shapes

[Fox12]

Hi, Gurus,

I have a Visio program. I created a group of line shapes. I want to
change the colors of all lines when a specific data goes beyond the range,
say, if value > 1000. How can I do that by using the group properties with
VBA?

Thanks so much in advance.

Fox12

 

[John Marshall, MVP]

Within the Shapesheet, you can set the colour to be dependant on the vale of
any other cell.

Make this change to the local master and it will be replicated across all
the shapes on 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
Visio Wishlist http://www.mvps.org/visio/wish_list.htm

 

[JuneTheSecond]

LineStyle property might be a help.
In this case, a style "Red" must be defined before execution.

If objShape.Shapes.Count > 1000 Then
objShape.LineStyle = "Red"
End If