Author Topic: Stencils Created in Earlier Versions of Visio Not Displaying Properly--Text Box  (Read 3284 times)

0 Members and 1 Guest are viewing this topic.

jrose

  • Newbie
  • *
  • Posts: 5
I have created over 3,000 stencils for our designers over the years.  Many of the stencils have text.  A text box outline appears around every group of text now when dragged onto a blank Visio 2016 drawing.  Has anyone had this issue?  Am I going to need to go into each of the 3,000 or so stencils and manually remove the text boxes?  In the attachment, there should be no text box outlines.
Thank you in advance!

Surrogate

  • Hero Member
  • *****
  • Posts: 1047
    • ShapeSheet™ Knowledge Base
You can try change text boxes style's properties. In Visio 2016 you cant find Style button on ribbon tabs. But you can add that button to custom tab.

Also you can try create macro which change text boxes line format. And you must apply this for each shape, in each master and in each stencil

Surrogate

  • Hero Member
  • *****
  • Posts: 1047
    • ShapeSheet™ Knowledge Base
You can modify codes which can find in this thread of our russian-speaking visio forum:
How to programmatically replace the value of a cell Size in the ShapeSheet
This code modify Line Patterns for all shapes which have text in all masters in single stencil (external vss-file, blahblah.vss)
Code
Sub a()
Dim mst As Master, doc As Document
    Set doc = Application.Documents.Open("D:\OneDrive\MyShapes\blahblah.vss")
    For Each mst In doc.Masters
        TxtChange mst.Shapes
    Next mst
    doc.Save
End Sub

Sub TxtChange(ByVal shps As Shapes)
   Dim sh As Shape, s As String
   For Each sh In shps
       If sh.Shapes.Count <> 0 Then TxtChange sh.Shapes
       If Len(sh.Text) > 0 Then sh.Cells("LinePattern") = "0"
   Next sh
End Sub
« Last Edit: July 23, 2017, 04:44:03 AM by Surrogate »

Nikolay

  • Hero Member
  • *****
  • Posts: 971
    • UnmanagedVisio
I have created over 3,000 stencils for our designers over the years.  Many of the stencils have text.  A text box outline appears around every group of text now when dragged onto a blank Visio 2016 drawing.  Has anyone had this issue?  Am I going to need to go into each of the 3,000 or so stencils and manually remove the text boxes?  In the attachment, there should be no text box outlines.
Thank you in advance!

To put the diagnosis correctly, we need to see the drawing (vss/vsd files) that has this problem, not the pictures. Please upload.

Yacine

  • Hero Member
  • *****
  • Posts: 2712
My 2 cents: it is probably a matter of styles and designs. Checking to what style the shapes belong and changing these styles to "no line" should correct the problem.
The shapesheet does unfortunately not show to which style a shape belongs, but VBA does. Was thinking about a small tool to unhide this information ... will see if I can find the time for it.

Meanwhile jrose may control the styles manually or upload files as Nikolay suggested.
« Last Edit: July 23, 2017, 05:51:32 AM by Yacine »
Yacine

Surrogate

  • Hero Member
  • *****
  • Posts: 1047
    • ShapeSheet™ Knowledge Base
@jrose,
you still have this trouble - Visio 2013 Automatically Placing Text Boxes ?

jrose

  • Newbie
  • *
  • Posts: 5
@surrogate, what we did for the 2013 problem was revert back to the Visio everyone was used to.  This is an automatic update that we have to use.

wapperdude

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 3833
  • Ideas Visio-lized into solutions
As I don't have a newer version, I can only ask...
Before you drag and drop any shapes from a stencil, what if you re-save the stencil with new file format, vssx.  Then close everything, and re-open with new stencil?  Doubt that it makes a difference, but worth a try I think.

Wapperdude
Visio 2019 Pro