• Skip to primary navigation
  • Skip to main content
  • Skip to primary sidebar

Visio Guy

Smart graphics for visual people




  • Home
  • Hire Me
    • Hire Me
    • Résumé
  • Products
    • Products
    • Bubble Revision Shape
    • Layers to Pages Utility
    • Rack Unit Dimension Line
    • Radial Elements Tool with up to 100 Wedges
    • Text on a Circle Visio SmartShape
  • Index
    • Articles by Date
    • YouTube – VisioGuy
    • Download Information
    • Suggestion Box
    • Shop
    • Visio Art
    • Visio Links
    • – Visio Shapes & Stencils
    • – Visio Templates & Drawings
  • About
    • About
    • Donate
    • GitHub
    • jsFiddle
    • Reading List
    • Subscribe & Follow
      • – E-mail
      • – facebook
      • – Twitter
      • – RSS
    • Privacy Policy
  • Discussion Forum
You are here: Home / General / Humor / VB Visio Drawing

VB Visio Drawing

June 8, 2007 By Visio Guy 6 Comments

If you are developing solutions for Visio, then you’ve probably dabbled with VB code in Visio’s Visual Basic for Applications editor. If you’ve been in the industry as long as I have, then you know that VB means Visual Basic. Period. End of story. But if you happen to also be from Australia, then it’s a different story…

We’ve been Down Under for nearly two months now, but I still can’t get past the awkward feelings I have when I saddle up to the bar and ask the man to pour me a “VB”. Of course, it’s Victoria Bitter in these parts, but it’s just plain wrong for an old VB programmer. This really makes it hard to leave your work at the office! Imagine going down to your local pub and asking;

“Bartender, pour me a pint o’ C-sharp!”

Or even worse;

“Gimme a C++! And make it a double; “

So now that you’ve indulged my sense of humor, it’s time for a reward. The download that accompanies this post includes five vessel Masters that you can use or modify to your heart’s content. I think they’ve turned out rather nicely, especially considering they are created entirely with Visio. Have a look:

Vessel Masters

click to view larger image

To keep with the development-theme of this web-site, I’d like to note that the vessel shapes use a few interesting techniques that you may wish to exploit and explore:

  • Four transparent, gradient-fill overlays make the vessels appear shiny
  • The shiny-overlays gradate from 75%-transparent white to 50%-transparent black, allowing background shapes to show-through
  • Bottle, can, and logo shapes can be more simply drawn, because they needn’t incorporate any shading
  • The “Victoria Bitter” letters were made from individually rotated shapes, each containing one character
  • These character shapes were copied as a unit, and pasted as metafiles, so that they would easily size with the shape
  • This metafile-text can’t be edited or formatted, however
  • The control handle that repositions the shape isn’t visible until there is text on the shape (see cell: Controls.txtPos.XCon)
  • If you reposition the text using the Text Block Tool, the control-handle positioning won’t break, due to SetAtRef formulas in TxtPinX and TxtPinY

One nice thing about the generic shapes is that you can easily add your own labels to make your own cool-looking cans or bottles. You don’t have to do any fancy shading, though. Just draw or import your logo, and insert it into the group of one of the vessel shapes:

Yankee Doodle Braeu

In order to take advantage of the fancy-schmancy shading, you need to get your logo into the group, and behind the transparent overlays. To do this, follow these steps:

  • Copy your logo shape via Ctrl+C
  • Select a can or bottle shape
  • Open the group via Edit > Open Group
  • Paste your logo shape into the group window
  • Zoom way out to find your logo. Visio often pastes shapes way out-of-view in the group window…bug!
  • Position your logo as desired
  • Send the logo backward one level using Shape > Order > Send Backward
  • Repeat this send-backward operation three more times by pressing F4 three times
  • Close the group window

Here we can see the logo as it progresses towards the back. You can see the individual stripes of the shiny-overlay shapes when the logo is on top of some of them, but they blend together nicely once the logo is behind all four of them:

Send Logo Backward

If you are interested in making a logo with nifty text-on-a-circle, be sure to check out this article that shows you how to curve your text: Circular Text Generator (version 2).

Download “Visio VB Shape”

s!Aj0wJuswNyXlhjVRQN8J8Qru7rb8 – Downloaded 1263 times – 103.00 B

More VB Silliness

John Walkenbach, who authors the excellent The Spreadsheet Page, has an entry on VBA Humor. Have a look and a laugh!

  • Tweet
  • More
  • Pocket
  • Share on Tumblr
  • Print
  • Email

Related posts:

  1. How to Draw Glass in Visio
  2. Lens Flare & Highlight Shapes – Bling Bling!

Filed Under: Humor, Shapes Tagged With: Artistic Effects, Humor, Transparency, Visio Groups

Previous Post: « Multi-Earth Shape
Next Post: When 2D Glue Breaks »

Reader Interactions

Comments

  1. Senaj says

    June 8, 2007 at 2:52 pm

    VERY COOL !!!

  2. John Marshall says

    June 8, 2007 at 5:12 pm

    So when do get to see a can of Visio?

    As to asking for C# or C++, the bartender will give you a glass of fortified orange juice.

  3. SEGuy says

    June 12, 2007 at 9:58 am

    Awesome, I am going to send some of the best customers for our product a can of beer gratis with our company logo on it.

  4. Mark Nelson (MS) says

    June 14, 2007 at 5:27 am

    Ooooooh! Multi-stop gradients.

  5. carl.page says

    June 26, 2014 at 1:27 am

    That’s gold…

Leave a Reply Cancel reply

Primary Sidebar

Buy Über Rack Unit Dimension Line
Article — Purchase

Categories

Buy my book!

Meta

  • Log in
  • Entries feed
  • Comments feed
  • WordPress.org

Tag Cloud

A/V Artistic Effects BPM Code Connectors Control Handles Countries Custom Patterns Custom Properties Data Graphics Data Linking Data Visualization David Edson David Parker Fill Format Formulas Functions Geometry Gradient Images Links Maps Multi-shapes Network Programming repeating shapes Resources Right-Click Actions Scale Shape Data ShapeSheet ShapeSheet Formulas ShapeSheet Functions SharePoint shiny SmartShapes Sport Sports Text Themes Tools Transparency User-defined Cells Visio 2007 Visio SmartShapes

Top Posts & Pages

  • - Visio Shapes & Stencils
  • - Visio Templates & Drawings
  • Amazon AWS Visio Shapes
  • Sankey Diagram Shapes for Visio
  • Free Visio People Shapes
  • Bubble Revision Shapes
  • AV Engineering Diagrams with Symbol Logic ECAV
  • Release the Power of Visio Custom Line Patterns
  • Crayon Visio Network Shapes, Revisited
  • Text Along a Connector's Path in Microsoft Visio 2010

www.visguy.com - Visio Guy - since 2006

 

Loading Comments...