Share:

" /> Visio Guy » Visio Microphone Shape
Home » AV Equipment, Shapes

Visio Microphone Shape

Submitted by on June 18, 2008 – 7:48 pm | | 26759 views 4 Comments

Read Full ArticleWapperdude submitted this “mike” shape to Visio Guy, for us to pass on to our readers.

According to WD, the inspiration came as follows: I saw a request for audio symbols in the Visio forum, had this dumb 1998 mike shape, sent it to school and now it’s smarter.

So for you A/V folks out there in Visio Land, here’s a new SmartShape for your diagramming enjoyment!

Wapperdude added quite a few smarts to this shape. It has Shape Data fields for Manufacturer and Model. You can show or hide the text. And you can select from 9 different colors, all by right-clicking the shape!

Check out the options in that context menu:

Not being able to leave well-enough alone, I added a few modifications myself. Here’s a run-down of modifications I made:

When the text is hidden, the control handle that positions it is also hidden. This was done with the Shapesheet formula:

Controls.textPosition.XCon = 0 + 5*User.TextHidden

Linked the shape’s text to the Shape Data fields using the Insert > Field feature, and entering a custom formula:

Fields.Value = Prop.Manufacturer & CHAR ( 10 ) & Prop.Model

Simplified the SETF formulas in the Actions section. The Actions now set User-defined cells for red, green and blue values in the group’s ShapeSheet. The sub-shape that represents the microphone head then builds an RGB color from these three values.

by doing the formula-setting at the group level, and having the colored-head sub-shape refer up to the red, green, and blue values in the group’s ShapeSheet

Changed the formulas for the text’s width and height in the Text Transform section, so that the text is always fully encompassed. The formulas look like this:

TxtWidth = TEXTWIDTH(TheText)

TxtHeight = TEXTHEIGHT(TheText, TxtWidth)

Set the default formula for the text-positioning control handle, such that the text is always off of the shape, no matter how wide it is. This is done via:

Controls.textPosition.X = Width + TxtWidth/2

Protected the sub-shapes from being selected via Format > Behavior, Selection: Group Only

Set the Double-click behavior such that it shows the Shape Data pop-up window. The ShapeSheet formula is:

EventDblClick = DOCMD(1312)

Updated the Master Icon, woohoo!

Thanks WapperDude!

Visio Microphone SmartShape (61.23 kB) - 2515

4 Comments »

  • Wapperdude says:

    Many thanks Visio Guy! “Mike” certainly benefitted from your college education! :)

  • Patrick Hesselmann says:

    Great mic! Do you happen to have a stencil of a Lavalier mic?

    Thanks,

    Patrick.

  • Visio Guy says:

    Hi Patrick!

    No Lavalier master shape on my hard drive, but you might check with someone I know (the guy who submitted this shape!)

    Go to the Visio Guy Forum and look for the user “wapperdude”. You might send him a personal message. I know he does a lot of A/V stuff and, as you can see, he likes to create good-looking Visio shapes.

  • Abssorb says:

    When downloading the attachment, Windows complains: The compressed file is invalid or corrupted.

Leave a comment!

Add your comment below, or trackback from your own site. You can also subscribe to these comments via RSS.

Be nice. Keep it clean. Stay on topic. No spam.

You can use these tags:
<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

This is a Gravatar-enabled weblog. To get your own globally-recognized-avatar, please register at Gravatar.

*