Print Page - Reducing width of entire visio drawing by same scale

Title: Reducing width of entire visio drawing by same scale
Post by: mayank5742 on December 21, 2015, 09: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.

Title: Re: Reducing width of entire visio drawing by same scale
Post by: kiler40 on December 21, 2015, 09:50:22 AM

It can be done by code

Code Select


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

Andrei

Visio Guy

Visio Guy Website & General Stuff => Suggestion Box => Topic started by: mayank5742 on December 21, 2015, 09:27:13 AM