Author Topic: Visio-WordArt (Read 57729 times)

JuneTheSecond · « **on:** June 04, 2009, 03:06:20 AM »

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 · « **Reply #1 on:** June 04, 2009, 03:27:32 AM »

Hi,

Hi, here are eaxample drawings of Visio-WordArt.

Visio Guy · « **Reply #2 on:** June 04, 2009, 04:37:48 AM »

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

vojo · « **Reply #3 on:** June 04, 2009, 07:52:52 AM »

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

Paul Herber · « **Reply #4 on:** June 04, 2009, 08:03:31 AM »

I also get an error at the line

Code

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

wapperdude · « **Reply #5 on:** June 04, 2009, 10:03:25 AM »

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 · « **Reply #6 on:** June 04, 2009, 11:05:56 AM »

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 · « **Reply #7 on:** June 04, 2009, 07:29:02 PM »

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 · « **Reply #8 on:** June 05, 2009, 02:55:15 AM »

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 · « **Reply #9 on:** June 05, 2009, 05:38:54 AM »

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 · « **Reply #10 on:** June 06, 2009, 07:33:11 AM »

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 · « **Reply #11 on:** June 09, 2009, 06:39:38 AM »

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 · « **Reply #12 on:** June 09, 2009, 07:28:52 AM »

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

Quote from: JuneTheSecond on June 09, 2009, 06:39:38 AM

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 · « **Reply #13 on:** June 09, 2009, 08:11:41 AM »

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 · « **Reply #14 on:** June 09, 2009, 03:57:01 PM »

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

Quote from: Visio Guy on June 09, 2009, 08:11:41 AM

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.

Visio Guy