Visio-WordArt

[JuneTheSecond]

Hi,

I've enhanced Visio-WordArt that was posted at "Automatic Tracing".

You can make WordArt like shapes.
Edit text on the shape and select right click menu "Visio-WordArt".
Font may be changed in text editing.
Enter any number for layout of text from 1 to 40 selecting from the tabel below.

I am sorry to say fill and shadows must be made with Visio menus.

[JuneTheSecond]

Hi,

Hi, here are eaxample drawings of Visio-WordArt.

[Visio Guy]

Thanks for making a new topic. This is really a fun tool to use!

[vojo]

Nice tool...unfortunately, I get a VBA error when I try this tool....any other DLL, EXEs, etc I need?

[Paul Herber]

I also get an error at the line

Code Select Expand


Set shp = Application.ActiveWindow.Page.InsertObject("{00020906-0000-0000-C000-000000000046}", visInsertAsEmbed)


[wapperdude]

Really???  It ran fine for me.  It's really cool.  The font faces with "body" turn out really well.  Running Win XP SP3, V2007 Std. 

Whoops!  Guess I need to add, that was the original version, not this improved version.  Will get back on this.

At work, now ...

...Yes.  Ran into an error also, but different line:  shpGroup.Cells("FillBkgnd").FormulaU = "THEMEGUARD(TINT(THEME(""LineColor""),48))"

OK. This error is due to the fact I ran it on a system that is using V2003Pro, and does not support TINT, not sure about THEMEGUARD. 


Both version produce this error, but, both version generate the WordArt.

Wapperdude

[vojo]

ok...my problem turns out to be themes.   I am running 2003 std....VBA does not like the them statements in the macro.

Anybody know a way for a macro to determine 2003 vs 2007 (short of looking for some theme cell)?

This does raise the point....given the usefullness of this macro, how could one add to stencil so it could be used at will
(ie how to ensure the VBA moves with the shape)

[JuneTheSecond]

Hi, Paul.

For error of inserting Word, please try "Word.Document" or "Word.Document.8", 
(or any number than 8, may be) in place of unique name "{00020906-.....
    Set shp = Application.ActiveWindow.Page.InsertObject("Word.Document.8", visInsertAsEmbed)

And please, comment out all the lines that include ThemeGuard function.

My main PC is now down because of over heating, revision of my macro may delay.

[Visio Guy]

You can check the Visio application's version. Since we are dealing with formulas that are quoted, this will work. Ie: we are not referencing object-mode properties and methods that might not exist:

I have Visio 2007 Pro, I get this:

?visio.Application.Version
12.0

So if you have less than 12.0, skip over the code that sets Theme-related formulas, or replace it with something that makes sense for older versions of Visio.

[JuneTheSecond]

Hi,

Thank you again, Chris.

I've modified my macro, and testted in Visio2003.
But I cannot yet test it in Visio2007.
Visio2007 is in broken PC.

I am sory for me to post old one.
Now it is replaced.

[JuneTheSecond]

I've changed above drawing again.
If you save Visio2007 drawing in Visio2003, The formula ThemeGuard(... is converted to RGB(..... .
The Revision is that if the version of Visio is not 12.0, then the formula is changed to RGB function.

And  more, modified a bit, because shadow is black.

I am sorry that I've not yet tested it in Visio2007.
VRM of mother board on my main PC seems burnt.

[JuneTheSecond]

Hi,

One more enhance.
Effect 6, 19, 24 , 28 are added.
For effect 6-28 you are recommended to remove shadows.
But other than default 1 are very much heavy.
I am sorry I have not yet tested in Visio2007.
My main PC is still stopped.

[artbraune]

Yoda-san,

This is a great tool. One feature request if I may - I would like a selection that just converts text to wordart without any transformation. The early version of this tool did that - but did not have as clean of a result as this current version.

Thanks!
Art

Hi,

One more enhance.
Effect 6, 19, 24 , 28 are added.
For effect 6-28 you are recommended to remove shadows.
But other than default 1 are very much heavy.

[Visio Guy]

Hi Art,

I think you just enter "1" in the shape data field for the "magic box".

He's got all the effect "shadows" in the document so that you can quickly refer to the proper id.

[artbraune]

Chris,

I tried "1" and got something other than what I was expecting??? At least in Visio 2007 SP2?

The initial version did great - but the font width versus the output width was always way off (with the output always coming up far wider than the original). The current version is right on - but I do not want any effects.

Make sense?

I can post an example from both versions later...

Art

Hi Art,

I think you just enter "1" in the shape data field for the "magic box".

He's got all the effect "shadows" in the document so that you can quickly refer to the proper id.