I'd like to change the proprieties of the lines in my schematics.  

The code works, except if lines are in a group.

```
Dim shp As Visio.Shape
For Each shp In Visio.ActiveWindow.Selection
    '// Add cell and formula/results here:
    shp.Cells("linecolor") = 0
Next shp

Set shp = Nothing

End Sub

```