I have black bars in visio which i have used to create my whole visio drawings. Now i feel they are over sized. is there any way i can change the size with a macro.

See whether this comes close to what you want. Each of the wall sections is actually a box not just a line, so it's necessary to adjust both the width of the box and the line weight. I've picked 1.5 mm and 2 pt, respectively; you can change those to other values if you'd like.

BTW, I kept this really simple; it only changes individual walls not ones that have been grouped together. If you want to change those too, just ungroup them and rerun the macro.

Sub ChangeWallWidth()
' changes line weight and width of box shapes use as walls on floor plan
    Dim pg As Page
    Dim shp As Shape
 
    For Each pg In ActiveDocument.Pages
        For Each shp In ActivePage.Shapes
            If shp.Type <> visTypeGroup Then
                If Left(shp.NameU, 3) = "Box" Then
                    shp.CellsSRC(visSectionObject, visRowLine, visLineWeight).FormulaU = "2 pt"
                    shp.CellsSRC(visSectionObject, visRowXFormOut, visXFormWidth).FormulaU = "1.5 mm"
                End If
            End If
        Next
    Next
    
End Sub

Select allOpen in new window

Thanks Scott i ran the macro but nothing changed. I think these are just bar's they just have 2 side selctors when clicked on them.
Attached is the picture of the bar

ScreenShot039.bmp

I used one of the floor plans we were working on a couple of months ago. Why don't you send me a drawing that contains the lines in question and I'll take a look at it tomorrow (I'm off to bed now).

ok thanks have a good night...
Attached is a sample file

1st-floor.txt

Thanks Scott this is excellent worked fine...
One question .Is it possible to reduce the size less that "1"
Need your help on these please...
http://www.experts-exchange.com/Microsoft/Applications/Microsoft_Visio/Q_23588581.html
http://www.experts-exchange.com/Microsoft/Applications/Microsoft_Visio/Q_23588585.html
 

Yes -- you can set line width to less than one, e.g., .75

Hi Scott the attached is a sheet where i am not able to resize the bars. I have 6 of such pages...
HK.vsd.txt

That's because the lines on this page aren't lines -- they are actually intelligent wall shapes from one of the Visio stencils. Took me a few minutes to figure out how to change them but this code does it.

The value of "0.25" is not a point size for the line as it was in the line thickness code; you can substitute other values if you want the walls to be thicker or thinner.

Sub ChangeWallThickness()
' changes line weight for lines used as walls on floor plan
    Dim pg As Page
    Dim shp As Shape
 
    For Each pg In ActiveDocument.Pages
        For Each shp In ActivePage.Shapes
            If shp.CellExists("Prop.T", False) Then
                shp.Cells("Prop.T").FormulaU = "0.25"
            End If
        Next
    Next
End Sub

Select allOpen in new window

Thanks a lot Scott....

Scott i have some maps as attached. How can i reduce the size of these bars
They are not reducing with the 2 macros you gave me.

ScreenShot058.bmp

Unless you have hundreds like this, I would just delete them and replace them with lines you can control.

ok scott. I shall replace all the bars in such files to the bars that can be managed with your script ...Thanks...