Unfortunately there is no fix for this yet. It is planned to address the
problem of the built in shapes in the next service pack.
For now, you will need to manually update the shapes / masters / styles to
'fix' a drawing.
Here is an expanded code sample that should be able to update the Paragraph
flag in a drawing (all shapes, all masters, all pages), but you will have
to run the code for each drawing / template that you create. As always -
this is provided as a sample only...
SAMPLE ONLY =============================================
****************************************************************************
**********
Option Explicit
Sub MakeAllShapesLTRParagraphDirection()
Dim doc As Document
Dim stylesColl As Styles
Dim style1 As Style
Dim mastersColl As Masters
Dim master1 As Master
Dim masterCopy As Master
Dim shapesColl As Shapes
Dim shape1 As Shape
Dim pagesColl As Pages
Dim page1 As Page
Set doc = ActiveDocument
Set stylesColl = doc.Styles
For Each style1 In stylesColl
Call MakeStyleLTR(style1)
Next
Set mastersColl = doc.Masters
For Each master1 In mastersColl
' Debug.Print "Master: ", master1.NameU
Set masterCopy = master1.Open
Set shapesColl = masterCopy.Shapes
For Each shape1 In shapesColl
Call MakeShapeLTR(shape1)
Next
masterCopy.Close
Next
Set pagesColl = doc.Pages
For Each page1 In pagesColl
' Debug.Print "Page: ", page1.NameU
Set shapesColl = page1.Shapes
For Each shape1 In shapesColl
Call MakeShapeLTR(shape1)
Next
Next
End Sub
Sub MakeShapeLTR(shape1 As Shape)
Dim shapesColl As Shapes
Dim shape2 As Shape
On Error GoTo continue ' If cell is guarded then ignore
'Debug.Print "Shape: ", shape1.NameU
If (shape1.CellsSRC(visSectionParagraph, 0, visFlags).FormulaU <> "0") Then
' Debug.Print " Changed"
shape1.CellsSRC(visSectionParagraph, 0, visFlags).FormulaU = "0"
End If
continue:
Set shapesColl = shape1.Shapes
For Each shape2 In shapesColl
Call MakeShapeLTR(shape2)
Next
End Sub
Sub MakeStyleLTR(style1 As Style)
On Error GoTo continue ' If cell is guarded then ignore
'Debug.Print "Style: ", style1.NameU
If (style1.CellsSRC(visSectionParagraph, 0, visFlags).FormulaU <> "0") Then
' Debug.Print " Changed"
style1.CellsSRC(visSectionParagraph, 0, visFlags).FormulaU = "0"
End If
continue:
End Sub
****************************************************************************
**********
SAMPLE ONLY =============================================
Hope that helps.
Barb Way
Product Support - Visio
Microsoft Corporation
[This posting is provided "As Is" with no warranties, and confers no
rights.]
--------------------
From: <***@discussions.microsoft.com>
Subject: Re: usability problem
Date: Mon, 26 May 2008 23:30:01 -0700
Hello!
Is there any patch to fix the described issue above? I have the same
version
of Visio and the same annoying bug in it :
"LEFT arrow key moves cursor to the RIGTH, and RIGTH
arrow key moves cursor to the LEFT. More over, END key moves cursor to the
begining of a text, and HOME key moves cursor (as you already guessed :) )
to the end of a text"
I have to work with Visio a lot but the solution mentioned here is not
helpful for me, I am not aware how to use it. Please help.
Thanks in advance!
Post by Apc1. It there a way in Visio DOM to just plainly address all text blocks in
the document in one huge 1-dimensional array as it is possible with elements
in HTML DOM?
2. What should I do to enable this macro to run on stencils? Which objects
should I address and do I have to have the stencils opened?
There isn't a 'do this for all text' kind of method that I'm aware of in
the Visio object model.
Assuming you mean groups, you would generally expect to recursively run
through all objects .
Alternatively, you could save a drawing or a stencil (or a template) as an
Find: <Flags>0</Flags>
Replace with: <Flags>1</Flags>
...for instance.
Although that won't get the items which have a value which they inherited.
Might be better to search just for "0</Flags>" and replace with "1</Flags>"
(without any of the quotes, of course)
Barb Way
Product Support - Visio
Microsoft Corporation
This posting is provided "AS IS" with no warranties, and confers no rights