Changes from Visio 2010 to 2013 - highlighting entire line drawing document with text fields and changing line colors

I work with very large visio drawings that are basically line drawings (network drawings) with text boxes indicating equipment location. We work in future and current drawings, future has colored lines indicating connection type and objects have text in them that indicate if they are new by having red text. Current drawings have all black lines and black text.

Here's my dilemma, previously I would Ctrl+A and then change all text and all lines to black in Visio 2010, everything would change no problem. In Visio 2013 every text box now get's a black border around it, I've tried selecting all text boxes at once and trying to remove the line but no luck.

These drawings are HUGE and it takes me a good hour just to change between future and current where previously it took me seconds. I have many coworkers and we're all experiencing he same issue with the move to 2013.

Is there a macro or some vb script I can utilize to select all text boxes and remove the black outline?

Hope you can help!

March 19th, 2015 2:08pm

try this macro

Sub Simple()
Dim sh As Shape, counter As Integer
ActiveWindow.SelectAll
For counter = 1 To ActiveWindow.Selection.Count
Set sh = ActiveWindow.Selection(counter)
If Len(sh.Text) > 0 Then sh.Cells("Geometry1.Noline").FormulaU = "IF(LEN(SHAPETEXT(TheText))>0,1,0)"
Next
MsgBox "All text borders set invisible"
End Sub
if in your drawings you have only lines and text label (NOT rectangles, circles and other shapesconteined text for example) this macro can help !

Free Windows Admin Tool Kit Click here and download it now
March 20th, 2015 12:41am

try this macro

Sub Simple()
Dim sh As Shape, counter As Integer
ActiveWindow.SelectAll
For counter = 1 To ActiveWindow.Selection.Count
Set sh = ActiveWindow.Selection(counter)
If Len(sh.Text) > 0 Then sh.Cells("Geometry1.Noline").FormulaU = "IF(LEN(SHAPETEXT(TheText))>0,1,0)"
Next
MsgBox "All text borders set invisible"
End Sub
if in your drawings you have only lines and text label (NOT rectangles, circles and other shapesconteined text for example) this macro can help !

  • Proposed as answer by Surrogate 15 hours 19 minutes ago
March 20th, 2015 4:40am

try this macro

Sub Simple()
Dim sh As Shape, counter As Integer
ActiveWindow.SelectAll
For counter = 1 To ActiveWindow.Selection.Count
Set sh = ActiveWindow.Selection(counter)
If Len(sh.Text) > 0 Then sh.Cells("Geometry1.Noline").FormulaU = "IF(LEN(SHAPETEXT(TheText))>0,1,0)"
Next
MsgBox "All text borders set invisible"
End Sub
if in your drawings you have only lines and text label (NOT rectangles, circles and other shapesconteined text for example) this macro can help !

  • Proposed as answer by Surrogate Thursday, March 26, 2015 4:10 PM
Free Windows Admin Tool Kit Click here and download it now
March 20th, 2015 4:40am

try this macro

Sub Simple()
Dim sh As Shape, counter As Integer
ActiveWindow.SelectAll
For counter = 1 To ActiveWindow.Selection.Count
Set sh = ActiveWindow.Selection(counter)
If Len(sh.Text) > 0 Then sh.Cells("Geometry1.Noline").FormulaU = "IF(LEN(SHAPETEXT(TheText))>0,1,0)"
Next
MsgBox "All text borders set invisible"
End Sub
if in your drawings you have only lines and text label (NOT rectangles, circles and other shapesconteined text for example) this macro can help !

March 20th, 2015 4:40am

try this macro

Sub Simple()
Dim sh As Shape, counter As Integer
ActiveWindow.SelectAll
For counter = 1 To ActiveWindow.Selection.Count
Set sh = ActiveWindow.Selection(counter)
If Len(sh.Text) > 0 Then sh.Cells("Geometry1.Noline").FormulaU = "IF(LEN(SHAPETEXT(TheText))>0,1,0)"
Next
MsgBox "All text borders set invisible"
End Sub
if in your drawings you have only lines and text label (NOT rectangles, circles and other shapesconteined text for example) this macro can help !

Free Windows Admin Tool Kit Click here and download it now
March 20th, 2015 4:40am

try this macro

Sub Simple()
Dim sh As Shape, counter As Integer
ActiveWindow.SelectAll
For counter = 1 To ActiveWindow.Selection.Count
Set sh = ActiveWindow.Selection(counter)
If Len(sh.Text) > 0 Then sh.Cells("Geometry1.Noline").FormulaU = "IF(LEN(SHAPETEXT(TheText))>0,1,0)"
Next
MsgBox "All text borders set invisible"
End Sub
if in your drawings you have only lines and text label (NOT rectangles, circles and other shapesconteined text for example) this macro can help !

March 20th, 2015 4:40am

try this macro

Sub Simple()
Dim sh As Shape, counter As Integer
ActiveWindow.SelectAll
For counter = 1 To ActiveWindow.Selection.Count
Set sh = ActiveWindow.Selection(counter)
If Len(sh.Text) > 0 Then sh.Cells("Geometry1.Noline").FormulaU = "IF(LEN(SHAPETEXT(TheText))>0,1,0)"
Next
MsgBox "All text borders set invisible"
End Sub
if in your drawings you have only lines and text label (NOT rectangles, circles and other shapesconteined text for example) this macro can help !

Free Windows Admin Tool Kit Click here and download it now
March 20th, 2015 4:40am

try this macro

Sub Simple()
Dim sh As Shape, counter As Integer
ActiveWindow.SelectAll
For counter = 1 To ActiveWindow.Selection.Count
Set sh = ActiveWindow.Selection(counter)
If Len(sh.Text) > 0 Then sh.Cells("Geometry1.Noline").FormulaU = "IF(LEN(SHAPETEXT(TheText))>0,1,0)"
Next
MsgBox "All text borders set invisible"
End Sub
if in your drawings you have only lines and text label (NOT rectangles, circles and other shapesconteined text for example) this macro can help !

March 20th, 2015 4:40am

try this macro

Sub Simple()
Dim sh As Shape, counter As Integer
ActiveWindow.SelectAll
For counter = 1 To ActiveWindow.Selection.Count
Set sh = ActiveWindow.Selection(counter)
If Len(sh.Text) > 0 Then sh.Cells("Geometry1.Noline").FormulaU = "IF(LEN(SHAPETEXT(TheText))>0,1,0)"
Next
MsgBox "All text borders set invisible"
End Sub
if in your drawings you have only lines and text label (NOT rectangles, circles and other shapesconteined text for example) this macro can help !

Free Windows Admin Tool Kit Click here and download it now
March 20th, 2015 4:40am

try this macro

Sub Simple()
Dim sh As Shape, counter As Integer
ActiveWindow.SelectAll
For counter = 1 To ActiveWindow.Selection.Count
Set sh = ActiveWindow.Selection(counter)
If Len(sh.Text) > 0 Then sh.Cells("Geometry1.Noline").FormulaU = "IF(LEN(SHAPETEXT(TheText))>0,1,0)"
Next
MsgBox "All text borders set invisible"
End Sub
if in your drawings you have only lines and text label (NOT rectangles, circles and other shapesconteined text for example) this macro can help !

March 20th, 2015 4:40am

try this macro

Sub Simple()
Dim sh As Shape, counter As Integer
ActiveWindow.SelectAll
For counter = 1 To ActiveWindow.Selection.Count
Set sh = ActiveWindow.Selection(counter)
If Len(sh.Text) > 0 Then sh.Cells("Geometry1.Noline").FormulaU = "IF(LEN(SHAPETEXT(TheText))>0,1,0)"
Next
MsgBox "All text borders set invisible"
End Sub
if in your drawings you have only lines and text label (NOT rectangles, circles and other shapesconteined text for example) this macro can help !

Free Windows Admin Tool Kit Click here and download it now
March 20th, 2015 4:40am

try this macro

Sub Simple()
Dim sh As Shape, counter As Integer
ActiveWindow.SelectAll
For counter = 1 To ActiveWindow.Selection.Count
Set sh = ActiveWindow.Selection(counter)
If Len(sh.Text) > 0 Then sh.Cells("Geometry1.Noline").FormulaU = "IF(LEN(SHAPETEXT(TheText))>0,1,0)"
Next
MsgBox "All text borders set invisible"
End Sub
if in your drawings you have only lines and text label (NOT rectangles, circles and other shapesconteined text for example) this macro can help !

March 20th, 2015 4:40am

try this macro

Sub Simple()
Dim sh As Shape, counter As Integer
ActiveWindow.SelectAll
For counter = 1 To ActiveWindow.Selection.Count
Set sh = ActiveWindow.Selection(counter)
If Len(sh.Text) > 0 Then sh.Cells("Geometry1.Noline").FormulaU = "IF(LEN(SHAPETEXT(TheText))>0,1,0)"
Next
MsgBox "All text borders set invisible"
End Sub
if in your drawings you have only lines and text label (NOT rectangles, circles and other shapesconteined text for example) this macro can help !

Free Windows Admin Tool Kit Click here and download it now
March 20th, 2015 4:40am

try this macro

Sub Simple()
Dim sh As Shape, counter As Integer
ActiveWindow.SelectAll
For counter = 1 To ActiveWindow.Selection.Count
Set sh = ActiveWindow.Selection(counter)
If Len(sh.Text) > 0 Then sh.Cells("Geometry1.Noline").FormulaU = "IF(LEN(SHAPETEXT(TheText))>0,1,0)"
Next
MsgBox "All text borders set invisible"
End Sub
if in your drawings you have only lines and text label (NOT rectangles, circles and other shapesconteined text for example) this macro can help !

March 20th, 2015 4:40am

This topic is archived. No further replies will be accepted.

Other recent topics Other recent topics