Reducing width of entire visio drawing by same scale

[mayank5742]

I want to know how to reduce the width of all the lines by same scale. I am not asking about the size of the drawing but the width of the lines used in entire drawing.

[kiler40]

It can be done by code

Code

Sub test()
For Each shp In ActivePage.Shapes
    
        shp.Cells("LineWeight") = shp.Cells("LineWeight") / 2
    
        Next shp
End Sub

Andrei