Reducing width of entire visio drawing by same scale

Started by mayank5742, December 21, 2015, 09:27:13 AM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.


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.


It can be done by code

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