IT tutorials
 
Office
 

Microsoft Visio 2010 : Introducing Automation and VBA Code (part 3) - Calling VBA Code from a SmartShape

- How To Install Windows Server 2012 On VirtualBox
- How To Bypass Torrent Connection Blocking By Your ISP
- How To Install Actual Facebook App On Kindle Fire
4/18/2014 9:37:23 PM

Calling VBA Code from a SmartShape

Now that you’re familiar with the VBA environment and basic subroutines, it’s time to connect the notes shape with some useful code.

Creating a VBA Subroutine That Can Be Run from a Shape
1.
Start with a new page, and copy a finished notes shape to it.

2.
If you look at the ShapeSheet for the notes shape, you see that the second Action row looks like this:

Actions.CreateNewNote.Action=CALLTHIS("ThisDocument.CreateNewNote")

The CALLTHIS ShapeSheet function looks for the sub CreateNewNote in the ThisDocument VBA module. We know where ThisDocument is, we just need to add CreateNewNote to it.

3.
Open the VBA interface and bring up the ThisDocument code module.

4.
Create the declaration of a sub that can be accessed from a shape. Subs that work with CALLTHIS need to have a shape variable as an argument. Type this code:

Public Sub CreateNewNote(ByRef shp As Visio.Shape)
End Sub

5.
You can quickly test if the shape is successfully getting to the sub by adding a simple message box line:

Public Sub CreateNewNote(ByRef shp As Visio.Shape)
MsgBox "Hi, my name is CreateNewNote!"
End Sub

Now you can test the code from the shape. Don’t run this sub from VBA, as you did previously. Instead, return to Visio, right-click the notes shape, and choose the second item. The message box appears, showing the test message you just coded.

6.
Now you’re ready to code the full CreateNewNote sub. It’s not a lot, just 15 lines, including five comments. Pay attention to the comments because they explain the purpose of each code block.

Public Sub CreateNewNote(ByRef shp As Visio.Shape)

' Get the location and height of the existing shape:
Dim shpNew As Visio.Shape
Dim px As Double, py As Double, h As Double
px = shp.Cells("PinX").ResultIU
py = shp.Cells("PinY").ResultIU
h = shp.Cells("Height").ResultIU

' Drop a copy of the shape onto the page:
Set shpNew = shp.ContainingPage.Drop(shp, px, py - h)

' Increment the number field:
Dim n As Integer
n =
shp.Cells("Prop.Number").ResultInt(Visio.VisUnitCodes.visNoCast, 0)

' Set the new shape's number to be one more than the old:
shpNew.Cells("Prop.Number").ResultIU = n+1

' Set the new shape's text:
shpNew.Text = "Notes shape, number = " & n+1

End Sub

7.
Return to Visio and run the code by right-clicking the notes shape. You should get a new copy of the shape directly below the shape you clicked. The Number field should be incremented by one, and the text should be changed to reflect the new index.

An interesting feature of the CreateNewNote subroutine is the code used to get and set values from the ShapeSheet. The Cells method takes a string argument that matches the name of a cell in the ShapeSheet. In this way, shp.Cells gives you access to the entire ShapeSheet.

Many budding Visio developers scour the SDK documentation looking for the properties Width, Height, Geometry1X1, to no avail. Cells is the key they miss. When you have a cell object, you can ask for its value in “internal units” by using ResultIU. Internal units in Visio are inches. If you use a different measurement system, you can use Result instead. For example, shp.Cells(“Width”).Result(“cm”). You can also get a cell’s formula—for example, shp.Cells(“Geometry1.X1”).Formula.

 
Others
 
- Microsoft Visio 2010 : Introducing Automation and VBA Code (part 2) - Using the Macro Recorder to Generate Code
- Microsoft Visio 2010 : Introducing Automation and VBA Code (part 1) - Exploring the VBA Development
- Microsoft Access 2010 : Introduction to Relational Database Design (part 2) - Normalization and Normal Forms
- Microsoft Access 2010 : Introduction to Relational Database Design (part 1) - Rules of Relational Database Design
- Developing Custom Microsoft Visio 2010 Solutions : Creating SmartShapes with the ShapeSheet (part 6) - Adding Right-Click Actions to the SmartShape
- Developing Custom Microsoft Visio 2010 Solutions : Creating SmartShapes with the ShapeSheet (part 5) - Modifying the Text Block Using the ShapeSheet
- Developing Custom Microsoft Visio 2010 Solutions : Creating SmartShapes with the ShapeSheet (part 4) - Linking Subshape Text to Shape Data Fields
- Developing Custom Microsoft Visio 2010 Solutions : Creating SmartShapes with the ShapeSheet (part 3) - Controlling Grouped Shapes with the ShapeSheet
- Developing Custom Microsoft Visio 2010 Solutions : Creating SmartShapes with the ShapeSheet (part 2) - Creating Smart Geometry in the ShapeSheet
- Developing Custom Microsoft Visio 2010 Solutions : Creating SmartShapes with the ShapeSheet (part 1) - Introducing the ShapeSheet
 
 
Top 10
 
- Microsoft Visio 2013 : Adding Structure to Your Diagrams - Finding containers and lists in Visio (part 2) - Wireframes,Legends
- Microsoft Visio 2013 : Adding Structure to Your Diagrams - Finding containers and lists in Visio (part 1) - Swimlanes
- Microsoft Visio 2013 : Adding Structure to Your Diagrams - Formatting and sizing lists
- Microsoft Visio 2013 : Adding Structure to Your Diagrams - Adding shapes to lists
- Microsoft Visio 2013 : Adding Structure to Your Diagrams - Sizing containers
- Microsoft Access 2010 : Control Properties and Why to Use Them (part 3) - The Other Properties of a Control
- Microsoft Access 2010 : Control Properties and Why to Use Them (part 2) - The Data Properties of a Control
- Microsoft Access 2010 : Control Properties and Why to Use Them (part 1) - The Format Properties of a Control
- Microsoft Access 2010 : Form Properties and Why Should You Use Them - Working with the Properties Window
- Microsoft Visio 2013 : Using the Organization Chart Wizard with new data
programming4us programming4us
 
Popular tags
 
Video Tutorail Microsoft Access Microsoft Excel Microsoft OneNote Microsoft PowerPoint Microsoft Project Microsoft Visio Microsoft Word Active Directory Biztalk Exchange Server Microsoft LynC Server Microsoft Dynamic Sharepoint Sql Server Windows Server 2008 Windows Server 2012 Windows 7 Windows 8 Adobe Indesign Adobe Flash Professional Dreamweaver Adobe Illustrator Adobe After Effects Adobe Photoshop Adobe Fireworks Adobe Flash Catalyst Corel Painter X CorelDRAW X5 CorelDraw 10 QuarkXPress 8 windows Phone 7 windows Phone 8 BlackBerry Android Ipad Iphone iOS
Celebrity Style, Fashion Trends, Beauty and Makeup Tips.