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.

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


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


Andrei