Ureader.com  
Microsoft software help and Community
   home   |   control panel login   |   archive   |  
 
other
informationbridge
office.intranets
office.misc
office.setup
office.xml
officeupdate
onenote
photodraw.discussion
powerpoint
producer
proj.standard&server
project
project.developer
project.pro_and_serve
project.server
project.vba
project2000
publisher
publisher.prepress
publisher.programming
publisher.webdesign
visio
visio.createshapes
visio.database.modeling
visio.dev.diagrams
visio.dev.shapesheet
visio.dev.vba
visio.dev.vc
visio.developer
visio.general
visio.installation
visio.printing
visio.software.modeling
visio.troubleshoot
  
 
date: Mon, 24 Sep 2007 18:07:23 +0700,    group: microsoft.public.visio.troubleshoot        back       


usability problem   
Hello

I use Visio 2007 and some strange problem arised recently. When I edit text 
in any shape in any type of diagram some keyboard keys work not as it is 
expected. In particular, 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.

It is VERY annoying. Any ideas how to fix it?

TIA.
date: Mon, 24 Sep 2007 18:07:23 +0700   author:   Ivan A. Vasilyev

Re: usability problem   
Hello Ivan,

Sounds like you've somehow changed to a right-to-left language such as 
Hebrew or Arabic.  You can select the text, for existing text, and 
right-click and select Format text..., then change the language to English 
(US) or another left-to-right language.  However for new text / documents 
you might want to check the selected keyboard language under Control Panel / 
Regional and Language Options / Languages.

For more information on right-to-left languages in Visio, check out this 
link:

http://office.microsoft.com/en-us/visio/HP010500021033.aspx

Hope that helps.

Best regards

John


John Goldsmith
www.visualSignals.co.uk

"Ivan A. Vasilyev"  wrote in message 
news:%23S9%23Wsp$HHA.3400@TK2MSFTNGP03.phx.gbl...
> Hello
>
> I use Visio 2007 and some strange problem arised recently. When I edit 
> text in any shape in any type of diagram some keyboard keys work not as it 
> is expected. In particular, 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.
>
> It is VERY annoying. Any ideas how to fix it?
>
> TIA.
>
date: Mon, 24 Sep 2007 14:02:33 +0100   author:   John Goldsmith

Re: usability problem   
Hello, John.

Thanks for the response.
I've checked my Regional Options and it is correct. "Text format" command 
also shows correct settings.
It seems to be some other problem. May be related but other...
Unfortunately, I can't remember when this problem arised. So I can't even 
imagine what caused the problem.
May be you have any other ideas?

TIA


"John Goldsmith"  ÓÏÏÂÝÉÌ/ÓÏÏÂÝÉÌÁ ×
ÎÏ×ÏÓÔÑÈ ÓÌÅÄÕÀÝÅÅ: news:OhJNvsq$HHA.4828@TK2MSFTNGP04.phx.gbl...
> Hello Ivan,
>
> Sounds like you've somehow changed to a right-to-left language such as
> Hebrew or Arabic.  You can select the text, for existing text, and
> right-click and select Format text..., then change the language to English
> (US) or another left-to-right language.  However for new text / documents
> you might want to check the selected keyboard language under Control Panel
> / Regional and Language Options / Languages.
>
> For more information on right-to-left languages in Visio, check out this
> link:
>
> http://office.microsoft.com/en-us/visio/HP010500021033.aspx
>
> Hope that helps.
>
> Best regards
>
> John
>
>
> John Goldsmith
> www.visualSignals.co.uk
>
> "Ivan A. Vasilyev"  wrote in message
> news:%23S9%23Wsp$HHA.3400@TK2MSFTNGP03.phx.gbl...
>> Hello
>>
>> I use Visio 2007 and some strange problem arised recently. When I edit
>> text in any shape in any type of diagram some keyboard keys work not as
>> it is expected. In particular, 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.
>>
>> It is VERY annoying. Any ideas how to fix it?
>>
>> TIA.
>>
>
>
date: Tue, 25 Sep 2007 17:44:58 +0700   author:   Ivan A. Vasilyev

Re: usability problem   
In Visio there is a paragraph direction button on the toolbar that appears 
if you have any Right-to-Left languages installed on your system.  What you 
describe sounds like the button is set to Right-to-Left paragraphs.

-- 
Mark Nelson
Office Graphics - Visio
Microsoft Corporation

This posting is provided "AS IS" with no warranties, and confers no rights.

"Ivan A. Vasilyev"  wrote in message 
news:Oi87fE2$HHA.4476@TK2MSFTNGP06.phx.gbl...
> Hello, John.
>
> Thanks for the response.
> I've checked my Regional Options and it is correct. "Text format" command 
> also shows correct settings.
> It seems to be some other problem. May be related but other...
> Unfortunately, I can't remember when this problem arised. So I can't even 
> imagine what caused the problem.
> May be you have any other ideas?
>
> TIA
>
>
> "John Goldsmith"  ÓÏÏÂÝÉÌ/ÓÏÏÂÝÉÌÁ 
> ×
> ÎÏ×ÏÓÔÑÈ ÓÌÅÄÕÀÝÅÅ: news:OhJNvsq$HHA.4828@TK2MSFTNGP04.phx.gbl...
>> Hello Ivan,
>>
>> Sounds like you've somehow changed to a right-to-left language such as
>> Hebrew or Arabic.  You can select the text, for existing text, and
>> right-click and select Format text..., then change the language to 
>> English
>> (US) or another left-to-right language.  However for new text / documents
>> you might want to check the selected keyboard language under Control 
>> Panel
>> / Regional and Language Options / Languages.
>>
>> For more information on right-to-left languages in Visio, check out this
>> link:
>>
>> http://office.microsoft.com/en-us/visio/HP010500021033.aspx
>>
>> Hope that helps.
>>
>> Best regards
>>
>> John
>>
>>
>> John Goldsmith
>> www.visualSignals.co.uk
>>
>> "Ivan A. Vasilyev"  wrote in message
>> news:%23S9%23Wsp$HHA.3400@TK2MSFTNGP03.phx.gbl...
>>> Hello
>>>
>>> I use Visio 2007 and some strange problem arised recently. When I edit
>>> text in any shape in any type of diagram some keyboard keys work not as
>>> it is expected. In particular, 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.
>>>
>>> It is VERY annoying. Any ideas how to fix it?
>>>
>>> TIA.
>>>
>>
>>
>
>
>
date: Tue, 25 Sep 2007 22:54:19 -0700   author:   Mark Nelson [MS]

Re: usability problem   
Hello, Mark.

The buttons you mentioned are only visible during toolbar "customization 
mode". So i conclude i have no any Right-to-Left languages installed.
Actually, i have two input languages installed: English (US) and Russian. 
None of them are of right-to-left type.
It seems to be something out of the scope of designed behavior. But i still 
hope to fix it )
TIA


"Mark Nelson [MS]"  ÓÏÏÂÝÉÌ/ÓÏÏÂÝÉÌÁ × 
ÎÏ×ÏÓÔÑÈ ÓÌÅÄÕÀÝÅÅ: news:OBdg2GAAIHA.1208@TK2MSFTNGP05.phx.gbl...
> In Visio there is a paragraph direction button on the toolbar that appears 
> if you have any Right-to-Left languages installed on your system.  What 
> you describe sounds like the button is set to Right-to-Left paragraphs.
>
> -- 
> Mark Nelson
> Office Graphics - Visio
> Microsoft Corporation
>
> This posting is provided "AS IS" with no warranties, and confers no 
> rights.
>
> "Ivan A. Vasilyev"  wrote in message 
> news:Oi87fE2$HHA.4476@TK2MSFTNGP06.phx.gbl...
>> Hello, John.
>>
>> Thanks for the response.
>> I've checked my Regional Options and it is correct. "Text format" command 
>> also shows correct settings.
>> It seems to be some other problem. May be related but other...
>> Unfortunately, I can't remember when this problem arised. So I can't even 
>> imagine what caused the problem.
>> May be you have any other ideas?
>>
>> TIA
>>
>>
>> "John Goldsmith"  
>> ÓÏÏÂÝÉÌ/ÓÏÏÂÝÉÌÁ ×
>> ÎÏ×ÏÓÔÑÈ ÓÌÅÄÕÀÝÅÅ: news:OhJNvsq$HHA.4828@TK2MSFTNGP04.phx.gbl...
>>> Hello Ivan,
>>>
>>> Sounds like you've somehow changed to a right-to-left language such as
>>> Hebrew or Arabic.  You can select the text, for existing text, and
>>> right-click and select Format text..., then change the language to 
>>> English
>>> (US) or another left-to-right language.  However for new text / 
>>> documents
>>> you might want to check the selected keyboard language under Control 
>>> Panel
>>> / Regional and Language Options / Languages.
>>>
>>> For more information on right-to-left languages in Visio, check out this
>>> link:
>>>
>>> http://office.microsoft.com/en-us/visio/HP010500021033.aspx
>>>
>>> Hope that helps.
>>>
>>> Best regards
>>>
>>> John
>>>
>>>
>>> John Goldsmith
>>> www.visualSignals.co.uk
>>>
>>> "Ivan A. Vasilyev"  wrote in message
>>> news:%23S9%23Wsp$HHA.3400@TK2MSFTNGP03.phx.gbl...
>>>> Hello
>>>>
>>>> I use Visio 2007 and some strange problem arised recently. When I edit
>>>> text in any shape in any type of diagram some keyboard keys work not as
>>>> it is expected. In particular, 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.
>>>>
>>>> It is VERY annoying. Any ideas how to fix it?
>>>>
>>>> TIA.
>>>>
>>>
>>>
>>
>>
>>
>
>
date: Thu, 27 Sep 2007 16:11:13 +0700   author:   Ivan A. Vasilyev

Re: usability problem   
Do you found any solution for your problem? I have some problem in
similar enviroment: Windows Server 2003 R2 SP2, Visio 2007 with
Russian MUI, Russian and English input laguages, right-to-left
langauges support installed.
date: Thu, 15 Nov 2007 23:14:41 -0800 (PST)   author:   DiRTy GaRRy

Re: usability problem   
Not yet. But the hope is still alive. :)

"DiRTy GaRRy"  ???????/???????? ? ???????? ?????????: 
news:d6c154eb-de48-4e75-b3b6-2bae2973a052@n20g2000hsh.googlegroups.com...
> Do you found any solution for your problem? I have some problem in
> similar enviroment: Windows Server 2003 R2 SP2, Visio 2007 with
> Russian MUI, Russian and English input laguages, right-to-left
> langauges support installed.
date: Fri, 16 Nov 2007 23:18:30 +0600   author:   Ivan A. Vasilyev

Re: usability problem   
{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fprq2\fcharset0 MS Sans Serif;}}
\viewkind4\uc1\pard\f0\fs20 I found that this issue has been logged, but no fix is currently available for it.  The problem occurs because of a flag setting which incorrectly identifies the stencils/templates/shapes as being  RTL (Right to Left) for language navigation.  This occurs in both the original release and in SP1, unfortunately.  I'm not aware of work arounds right now.
\par 
\par Barb Way
\par Product Support - Visio
\par Microsoft Corporation
\par This posting is provided "AS IS" with no warranties, and confers no rights.
\par 
\par \pard\li720 --------------------
\par From: DiRTy GaRRy 
\par Newsgroups: microsoft.public.visio.troubleshoot
\par Subject: Re: usability problem
\par Date: Thu, 15 Nov 2007 23:14:41 -0800 (PST)
\par Organization: http://groups.google.com
\par Lines: 4
\par Message-ID: 
\par References: <#S9#Wsp$HHA.3400@TK2MSFTNGP03.phx.gbl> <OhJNvsq$HHA.4828@TK2MSFTNGP04.phx.gbl> 
\par \tab <Oi87fE2$HHA.4476@TK2MSFTNGP06.phx.gbl>  
\par \tab 
\par NNTP-Posting-Host: 80.250.189.17
\par Mime-Version: 1.0
\par Content-Type: text/plain; charset=ISO-8859-1
\par Content-Transfer-Encoding: 7bit
\par X-Trace: posting.google.com 1195197281 32453 127.0.0.1 (16 Nov 2007 07:14:41 GMT)
\par X-Complaints-To: groups-abuse@google.com
\par NNTP-Posting-Date: Fri, 16 Nov 2007 07:14:41 +0000 (UTC)
\par Complaints-To: groups-abuse@google.com
\par Injection-Info: n20g2000hsh.googlegroups.com; posting-host=80.250.189.17; 
\par \tab posting-account=mfVgtQoAAAAJ9cKNPwd99712ZV2YhgPw
\par User-Agent: G2/1.0
\par X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.2; .NET CLR 
\par \tab 1.1.4322; .NET CLR 1.0.3705; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30),gzip(gfe),gzip(gfe)
\par Content-Disposition: inline
\par Path: TK2MSFTNGHUB02.phx.gbl!TK2MSFTNGP01.phx.gbl!TK2MSFTFEEDS01.phx.gbl!TK2MSFTFEEDS02.phx.gbl!tornado.fastwebnet.it!tiscali!newsfeed1.ip.tiscali.net!proxad.net!feeder1-2.proxad.net!64.233.178.134.MISMATCH!postnews.google.com!n20g2000hsh.googlegroups.com!not-for-mail
\par Xref: TK2MSFTNGHUB02.phx.gbl microsoft.public.visio.troubleshoot:200
\par X-Tomcat-NG: microsoft.public.visio.troubleshoot
\par 
\par Do you found any solution for your problem? I have some problem in
\par similar enviroment: Windows Server 2003 R2 SP2, Visio 2007 with
\par Russian MUI, Russian and English input laguages, right-to-left
\par langauges support installed.
\par \pard 
\par 
\par }
date: Tue, 22 Jan 2008 00:15:36 GMT   author:   (Barb Way)

Re: usability problem   
Hello. This is exactly what's giong on: if I just use "Text Tool" - the text 
is left-to-right, then I bring a shape from a stencil to the scene - and it's 
Right-to-Left.

Is there any way to create a VBscript that will run over all the stencils 
and change the flag?
Can you provide more info about this very flag as MSDN has nothing on it?
It the worst case, I'd have to HEX-Edit the files flipping bits, because 
this issue is sooooo irritating :((

"Barb Way" wrote:

> I found that this issue has been logged, but no fix is currently available 
> for it.  The problem occurs because of a flag setting which incorrectly 
> identifies the stencils/templates/shapes as being  RTL (Right to Left) for 
> language navigation.  This occurs in both the original release and in SP1, 
> unfortunately.  I'm not aware of work arounds right now.
date: Fri, 15 Feb 2008 06:24:00 -0800   author:   Apc

Re: usability problem   
{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fprq2\fcharset0 MS Sans Serif;}}
\viewkind4\uc1\pard\f0\fs20 You can definitely use a macro to update the stencils that you use regularly.  
\par 
\par Here's a sample of a (very simplified) code snip that shows the basic concept:
\par ** some shape called 'shape1' is selected ***
\par If (shape1.CellsSRC(visSectionParagraph, 0, visFlags).FormulaU <> "0") Then
\par '    Debug.Print "   Changed"
\par     shape1.CellsSRC(visSectionParagraph, 0, visFlags).FormulaU = "0"
\par End If
\par 
\par Of course, you would need to wrap that into code that 'walked' a drawing or stencil, selecting shapes / masters and changing the flag.  
\par 
\par FYI - I believe that there is a request in process for an article on this, and I will post the information here when I have more details on that.
\par 
\par Barb Way
\par Product Support - Visio
\par Microsoft Corporation
\par This posting is provided "AS IS" with no warranties, and confers no rights.
\par 
\par }
date: Fri, 15 Feb 2008 18:41:26 GMT   author:   (Barb Way)

Re: usability problem   
Thanks Barb, your code was handy.

Since I posess a strange illness that prevents me from writing in VB i asked 
my friend to help me. And with his programming talent and my debugging we 
(mostly, he) created this (credits to LastSoul, Ukraine):

===[CUT]===
Option Explicit
Sub fixVisFlags()
   Dim i As Integer
   Dim vsoDocument As Visio.Document
   Dim vsoPages As Visio.Pages
   Dim vsoPage As Visio.Page
       
   Set vsoPages = ActiveDocument.Pages
   Debug.Print "Document: "; ActiveDocument.Name
   For i = 1 To vsoPages.Count
       Set vsoPage = vsoPages.Item(i)
       Debug.Print " Page: "; vsoPage.Name
       fixShapes vsoPage.Shapes
   Next i
End Sub
Sub fixShapes(vsoShapes As Visio.Shapes)
   Dim j As Integer
   Dim vsoShape As Visio.shape
   For j = 1 To vsoShapes.Count
       Set vsoShape = vsoShapes.Item(j)
       Debug.Print "  Shape: "; vsoShape.Name
       If (vsoShape.CellsSRC(visSectionParagraph, 0, visFlags).FormulaU <> 
"0") Then
           Debug.Print " Fixed:"; vsoShape.Name
           vsoShape.CellsSRC(visSectionParagraph, 0, visFlags).FormulaU = "0"
       End If
       If vsoShape.Shapes.Count > 0 Then
           fixShapes vsoShape.Shapes
       End If
   Next j
End Sub
===[/CUT]===

Just create a macro with any name, wipe it's empty template and insert this 
code.
You'll get a fixVisFlags macro that will fix most of problems in already 
created document. 

I found one rare occasion that we'll investigate further, it occures when 
you alredy have a r-to-l shape with (label) that has several differently 
formatted text blocks. For some reason only the first one is fixed - it seems 
we'd have to add another level of recursion.

Thus, I have some questions:
1. 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?

"Barb Way" wrote:

> You can definitely use a macro to update the stencils that you use 
> regularly.
date: Wed, 27 Feb 2008 10:19:05 -0800   author:   Apc

Re: usability problem   
{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fprq2\fcharset0 MS Sans Serif;}}
\viewkind4\uc1\pard\i\f0\fs20 1. It there a way in Visio DOM to just plainly address all text blocks in 
\par the document in one huge 1-dimensional array as it is possible with elements 
\par in HTML DOM?
\par 
\par 2. What should I do to enable this macro to run on stencils? Which objects 
\par should I address and do I have to have the stencils opened?
\par 
\par \i0 There isn't a 'do this for all text' kind of method that I'm aware of in the Visio object model.  
\par Assuming you mean groups, you would generally expect to recursively run through all objects .
\par 
\par Alternatively, you could save a drawing or a stencil (or a template) as an XML version file, and do a search and replace:
\par  Find:  <Flags>0</Flags>
\par  Replace with: <Flags>1</Flags>
\par ...for instance.  
\par Although that won't get the items which have a value which they inherited.
\par Might be better to search just for "0</Flags>" and replace with "1</Flags>"  (without any of the quotes, of course)\i 
\par 
\par \i0 
\par Barb Way
\par Product Support - Visio
\par Microsoft Corporation
\par This posting is provided "AS IS" with no warranties, and confers no rights.
\par 
\par }
date: Thu, 28 Feb 2008 22:20:36 GMT   author:   (Barb Way)

Re: usability problem   
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!

"Barb Way" wrote:

> 1. 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 
> XML version file, and do a search and replace:
>  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
date: Mon, 26 May 2008 23:30:01 -0700   author:   VIFR

Re: usability problem   
{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fprq2\fcharset0 MS Sans Serif;}}
\viewkind4\uc1\pard\f0\fs26 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.
\par 
\par For now, you will need to manually update the shapes / masters / styles to 'fix' a drawing.  
\par 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...
\par 
\par SAMPLE ONLY =============================================
\par **************************************************************************************
\par 
\par Option Explicit
\par 
\par Sub MakeAllShapesLTRParagraphDirection()
\par Dim doc As Document
\par Dim stylesColl As Styles
\par Dim style1 As Style
\par Dim mastersColl As Masters
\par Dim master1 As Master
\par Dim masterCopy As Master
\par Dim shapesColl As Shapes
\par Dim shape1 As Shape
\par Dim pagesColl As Pages
\par Dim page1 As Page
\par 
\par Set doc = ActiveDocument
\par Set stylesColl = doc.Styles
\par For Each style1 In stylesColl
\par     Call MakeStyleLTR(style1)
\par Next
\par 
\par Set mastersColl = doc.Masters
\par For Each master1 In mastersColl
\par '    Debug.Print "Master: ", master1.NameU
\par     Set masterCopy = master1.Open
\par     Set shapesColl = masterCopy.Shapes
\par     For Each shape1 In shapesColl
\par         Call MakeShapeLTR(shape1)
\par     Next
\par     masterCopy.Close
\par Next
\par 
\par Set pagesColl = doc.Pages
\par For Each page1 In pagesColl
\par '    Debug.Print "Page: ", page1.NameU
\par     Set shapesColl = page1.Shapes
\par     For Each shape1 In shapesColl
\par         Call MakeShapeLTR(shape1)
\par     Next
\par Next
\par 
\par End Sub
\par 
\par Sub MakeShapeLTR(shape1 As Shape)
\par Dim shapesColl As Shapes
\par Dim shape2 As Shape
\par 
\par On Error GoTo continue      ' If cell is guarded then ignore
\par 
\par 'Debug.Print "Shape: ", shape1.NameU
\par If (shape1.CellsSRC(visSectionParagraph, 0, visFlags).FormulaU <> "0") Then
\par '    Debug.Print "   Changed"
\par     shape1.CellsSRC(visSectionParagraph, 0, visFlags).FormulaU = "0"
\par End If
\par 
\par continue:
\par 
\par Set shapesColl = shape1.Shapes
\par For Each shape2 In shapesColl
\par     Call MakeShapeLTR(shape2)
\par Next
\par 
\par End Sub
\par 
\par Sub MakeStyleLTR(style1 As Style)
\par On Error GoTo continue      ' If cell is guarded then ignore
\par 
\par 'Debug.Print "Style: ", style1.NameU
\par If (style1.CellsSRC(visSectionParagraph, 0, visFlags).FormulaU <> "0") Then
\par '    Debug.Print "   Changed"
\par     style1.CellsSRC(visSectionParagraph, 0, visFlags).FormulaU = "0"
\par End If
\par 
\par continue:
\par 
\par End Sub
\par 
\par **************************************************************************************
\par SAMPLE ONLY =============================================
\par 
\par Hope that helps.
\par 
\par Barb Way
\par Product Support - Visio
\par Microsoft Corporation
\par [This posting is provided "As Is" with no warranties, and confers no rights.]
\par \pard\li720 --------------------
\par From:  
\par Subject: Re: usability problem
\par Date: Mon, 26 May 2008 23:30:01 -0700
\par 
\par Hello!
\par Is there any patch to fix the described issue above? I have the same version 
\par of Visio and the same annoying bug in it :
\par "LEFT arrow key moves cursor to the RIGTH, and RIGTH 
\par arrow key moves cursor to the LEFT. More over, END key moves cursor to the 
\par begining of a text, and HOME key moves cursor (as you already guessed :) ) 
\par to the end of a text"
\par I have to work with Visio a lot but the solution mentioned here is not 
\par helpful for me, I am not aware how to use it. Please help.
\par Thanks in advance!
\par 
\par "Barb Way" wrote:
\par 
\par > 1. It there a way in Visio DOM to just plainly address all text blocks in 
\par > the document in one huge 1-dimensional array as it is possible with 
\par > elements 
\par > in HTML DOM?
\par > 
\par > 2. What should I do to enable this macro to run on stencils? Which objects 
\par > should I address and do I have to have the stencils opened?
\par > 
\par > There isn't a 'do this for all text' kind of method that I'm aware of in 
\par > the Visio object model.  
\par > Assuming you mean groups, you would generally expect to recursively run 
\par > through all objects .
\par > 
\par > Alternatively, you could save a drawing or a stencil (or a template) as an 
\par > XML version file, and do a search and replace:
\par >  Find:  <Flags>0</Flags>
\par >  Replace with: <Flags>1</Flags>
\par > ...for instance.  
\par > Although that won't get the items which have a value which they inherited.
\par > Might be better to search just for "0</Flags>" and replace with "1</Flags>" 
\par >  (without any of the quotes, of course)
\par > 
\par > 
\par > Barb Way
\par > Product Support - Visio
\par > Microsoft Corporation
\par > This posting is provided "AS IS" with no warranties, and confers no rights
\par \pard 
\par 
\par }
date: Tue, 27 May 2008 22:11:45 GMT   author:   (Barb Way)

Re: usability problem   
Thanks, I will wait for the patch.
date: Wed, 28 May 2008 23:16:01 -0700   author:   VIFR

Google
 
Web ureader.com


    COPYRIGHT 2007, YARDI TECHNOLOGY LIMITED, ALL RIGHT RESERVE  |   contact us