Author Topic: Reducing width of entire visio drawing by same scale  (Read 2504 times)

0 Members and 1 Guest are viewing this topic.

mayank5742

  • Newbie
  • *
  • Posts: 1
Reducing width of entire visio drawing by same scale
« on: December 21, 2015, 04:27:13 AM »
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

  • Sr. Member
  • ****
  • Posts: 328
Re: Reducing width of entire visio drawing by same scale
« Reply #1 on: December 21, 2015, 04:50:22 AM »
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