Greek Text under (Visio 2003)

[Andy]

Anyone know if its possible to change the "Greek Text under" display
option for Visio from code? I can't seem to find this setting anywhere
other than via the options menu.

 

[JuneTheSecond]

Hi,

I've recorded macro while making a character at the sedond position.
I got following code in Visio 2010 Beta.

Dim vsoCharacters1 As Visio.Characters
Set vsoCharacters1 =
Application.ActiveWindow.Page.Shapes.ItemFromID(1).Characters
vsoCharacters1.Begin = 1
vsoCharacters1.End = 2
vsoCharacters1.CharProps(visCharacterPos) = 2#
--
Best Regards.

JuneTheSecond
Now, visual calculation is more visual.
http://www.geocities.jp/visualcalculation/english/index.html

 

[John Goldsmith_Visio_MVP]

Hello Andy,

It's the kind of thing you might expect to find as a property of
ApplicationSettings but I couldn't spot it there. 'GreekTextSize' is an
application registry entry so you might be able to read it programmatically
but I have a feeling you won't be able to set it.

Best regards

John


John Goldsmith (Visio MVP)
www.visualSignals.typepad.co.uk
www.visualSignals.co.uk

 

[Andy]

The Greek Text under is a option, a display option. Specifies that
when the text on the screen is smaller than the specified point size,
text is greeked (text is approximated with a wavy line). If set to 0,
text is never greeked.

I want to set this to 0 for my Visio application from VBA.

(This has nothing to do with text in greek.)