• 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 / Visio Content / Shapes / Network / Microsoft Exchange Server 2007 Stencil

Microsoft Exchange Server 2007 Stencil

December 28, 2006 By Visio Guy 5 Comments

Read Full ArticleMicrosoft has published a brand-spanking-new set of Visio shapes for Microsoft Exchange Server 2007. You can download the stencil for free from Microsoft’s web-site and immediately get to work planning your next Exchange deployment. You’ll also amaze your co-workers with your unmatched graphic-abilities and non-boring PowerPoint slides!

Exchange Server Shapes Up Close

If you want to have a sneak-preview of what the shapes look like, I’ve created a screen-shot of all the master-shapes and their names, for your convenience. Just clikc the thumbnail at right to see an up-close view of all the neat, new graphics!

If you like what you see, you can download the shapes from Microsoft…here!

Sneak in Some VBA Code

By the way, I didn’t align all those shapes on the page and type in the text by hand. Whaddaya think I’m crazy!?!? I wrote a small snippet of VBA code to drop the shapes on the page, and set the text automatically.

Here’s the snippet:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub LayoutShapes()
 
  Dim pg As Visio.Page
  Dim mst As Visio.Master
  Dim shp As Visio.Shape
  Dim iRow As Integer, iCol As Integer, iCols As Integer
  Dim dSpcX As Double, dSpcY As Double
 
  '// Get a page object:
  Set pg = Visio.ActivePage
 
  '// Specify the number of columns:
  iCols = 5
  iRow = 0
  iCol = 0
 
  '// Spacing between columns and rows:
  dSpcX = 1.75
  dSpcY = 1.5
 
  '// Loop through each master in the document:
  For Each mst In pg.Document.Masters
 
    '// Drop the master and retain the shape variable:
    Set shp = pg.Drop(mst, iCol * dSpcX, -iRow * dSpcY)
 
    '// Increment or reset the column index:
    iCol = iCol + 1
    If (iCol > iCols) Then
      iCol = 0
      iRow = iRow + 1
    End If
 
    '// Set the text:
    shp.Text = mst.Name
 
  Next
 
  '// Center the shapes on the page:
  pg.CenterDrawing
 
End Sub
Sub LayoutShapes()
 
  Dim pg As Visio.Page
  Dim mst As Visio.Master
  Dim shp As Visio.Shape
  Dim iRow As Integer, iCol As Integer, iCols As Integer
  Dim dSpcX As Double, dSpcY As Double
 
  '// Get a page object:
  Set pg = Visio.ActivePage
 
  '// Specify the number of columns:
  iCols = 5
  iRow = 0
  iCol = 0
 
  '// Spacing between columns and rows:
  dSpcX = 1.75
  dSpcY = 1.5
 
  '// Loop through each master in the document:
  For Each mst In pg.Document.Masters
 
    '// Drop the master and retain the shape variable:
    Set shp = pg.Drop(mst, iCol * dSpcX, -iRow * dSpcY)
 
    '// Increment or reset the column index:
    iCol = iCol + 1
    If (iCol > iCols) Then
      iCol = 0
      iRow = iRow + 1
    End If
 
    '// Set the text:
    shp.Text = mst.Name
 
  Next
 
  '// Center the shapes on the page:
  pg.CenterDrawing
 
End Sub

 

And here’s the complete procedure for setting up the code and documenting the stencil:

  1. Open a stencil that you want to automatically document
  2. Create a New blank Visio drawing
  3. Show it’s document stencil via File > Shapes > Show Document Stencil
  4. Drag all the shapes from a stencil file into the document stencil
  5. Close the original stencil
  6. Press Alt + F11 to open the VBA editor
  7. Paste the code snippet from above into the VBA project
  8. Hit F5 to run the code
  9. Alt + Tab back and forth between Visio and VBA to check how the code ran. Tweak the values for dSpcX, dSpcY, and iCols until you like the results.

Visio used to ship with a stencil catalogue add-on, but I don’t know where it’s gone. Hopefully you’ll find this snippet useful in helping you to regain some of that lost functionality!

(Download Microsoft Exchange Server 2007 Visio Shapes Stencil)

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

Related posts:

  1. USB Stick Shape
  2. Thinkpad Network Shape
  3. Multi-Earth Shape
  4. European Cup 2008 Auto-Updating Visio Diagram
  5. European Cup 2008 Auto-Updating Visio Diagram (v2)

Filed Under: Network, Shapes Tagged With: Code, Microsoft Exchange, Network, Programming, SmartShapes

Previous Post: « Zeus ZXTM Appliance Network Stencil
Next Post: User-defined ShapeSheet Functions in Visio 2007 »

Reader Interactions

Comments

  1. BellaKitty says

    July 14, 2009 at 5:41 am

    Great post. This is why MS will never die. Sadly for linux heads like me lol. Nah I use windows daily. Just kidding.

  2. Jens says

    November 8, 2009 at 6:05 pm

    Thanks for the posting!

  3. http://tinyurl.com/stumwebb00093 says

    January 27, 2013 at 2:25 pm

    This is really the third post, of urs I personally browsed.
    Yet I enjoy this 1, “Visio Guy ? Microsoft Exchange Server 2007 Stencil”
    the most. Take care -Ashlee

  4. Emilia says

    July 25, 2017 at 9:53 am

    What is the diffence between this version and the current version of Microsoft Exchange Server? Any ideas?

Leave a Reply Cancel reply

Primary Sidebar

Buy Über Bubble Revision Shape
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
  • Sankey Diagram Shapes for Visio
  • Dynamic Updating Org Charts in Visio!
  • Amazon AWS Visio Shapes
  • Text to the Bottom of the Shape
  • Audio Visual Components Shapes
  • Link Fields to Subshape Text
  • AV Engineering Diagrams with Symbol Logic ECAV
  • Free Visio People Shapes

www.visguy.com - Visio Guy - since 2006

 

Loading Comments...