Author Topic: Visio-WordArt  (Read 40801 times)

0 Members and 1 Guest are viewing this topic.

JuneTheSecond

  • Hero Member
  • *****
  • Posts: 1027
    • Visio Shapes, Stencils and Sample Drawings
Visio-WordArt
« 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.
« Last Edit: June 04, 2009, 06:11:26 AM by JuneTheSecond »
Best Regards,

Junichi Yoda
http://june.minibird.jp/

JuneTheSecond

  • Hero Member
  • *****
  • Posts: 1027
    • Visio Shapes, Stencils and Sample Drawings
Re: Visio-WordArt
« Reply #1 on: June 04, 2009, 03:27:32 AM »
Hi,

Hi, here are eaxample drawings of Visio-WordArt.
« Last Edit: June 04, 2009, 03:29:07 AM by JuneTheSecond »
Best Regards,

Junichi Yoda
http://june.minibird.jp/

Visio Guy

  • Administrator
  • Hero Member
  • *****
  • Posts: 1649
  • Smart Graphics for Visual People...n' Stuff
    • Visio Guy
Re: Visio-WordArt
« Reply #2 on: June 04, 2009, 04:37:48 AM »
Thanks for making a new topic. This is really a fun tool to use!

For articles, tips and free content, see the Visio Guy Website at http://www.visguy.com
Get my Visio Book! Using Microsoft Visio 2010

vojo

  • Hero Member
  • *****
  • Posts: 1252
Re: Visio-WordArt
« 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

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 2770
    • Paul Herber's website
Re: Visio-WordArt
« Reply #4 on: June 04, 2009, 08:03:31 AM »
I also get an error at the line
Code: [Select]
Set shp = Application.ActiveWindow.Page.InsertObject("{00020906-0000-0000-C000-000000000046}", visInsertAsEmbed)
Electronic and Electrical engineering, business and software stencils and applications for Visio -

http://www.paulherber.co.uk/

wapperdude

  • Global Moderator
  • Hero Member
  • *****
  • Posts: 3514
  • Ideas Visio-lized into solutions
Re: Visio-WordArt
« 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
« Last Edit: June 04, 2009, 10:22:00 AM by wapperdude »
Visio 2019 Pro

vojo

  • Hero Member
  • *****
  • Posts: 1252
Re: Visio-WordArt
« 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

  • Hero Member
  • *****
  • Posts: 1027
    • Visio Shapes, Stencils and Sample Drawings
Re: Visio-WordArt
« 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.

« Last Edit: June 04, 2009, 11:54:17 PM by JuneTheSecond »
Best Regards,

Junichi Yoda
http://june.minibird.jp/

Visio Guy

  • Administrator
  • Hero Member
  • *****
  • Posts: 1649
  • Smart Graphics for Visual People...n' Stuff
    • Visio Guy
Re: Visio-WordArt
« 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.
For articles, tips and free content, see the Visio Guy Website at http://www.visguy.com
Get my Visio Book! Using Microsoft Visio 2010

JuneTheSecond

  • Hero Member
  • *****
  • Posts: 1027
    • Visio Shapes, Stencils and Sample Drawings
Re: Visio-WordArt
« 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.
« Last Edit: June 06, 2009, 07:33:41 AM by JuneTheSecond »
Best Regards,

Junichi Yoda
http://june.minibird.jp/

JuneTheSecond

  • Hero Member
  • *****
  • Posts: 1027
    • Visio Shapes, Stencils and Sample Drawings
Re: Visio-WordArt
« 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.
« Last Edit: June 07, 2009, 07:46:40 PM by JuneTheSecond »
Best Regards,

Junichi Yoda
http://june.minibird.jp/

JuneTheSecond

  • Hero Member
  • *****
  • Posts: 1027
    • Visio Shapes, Stencils and Sample Drawings
Re: Visio-WordArt
« 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.
« Last Edit: June 09, 2009, 07:29:46 AM by JuneTheSecond »
Best Regards,

Junichi Yoda
http://june.minibird.jp/

artbraune

  • Jr. Member
  • **
  • Posts: 27
Re: Visio-WordArt
« 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

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

  • Administrator
  • Hero Member
  • *****
  • Posts: 1649
  • Smart Graphics for Visual People...n' Stuff
    • Visio Guy
Re: Visio-WordArt
« 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.
For articles, tips and free content, see the Visio Guy Website at http://www.visguy.com
Get my Visio Book! Using Microsoft Visio 2010

artbraune

  • Jr. Member
  • **
  • Posts: 27
Re: Visio-WordArt
« 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

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.