Visio shapes can have multiple hyperlinks, but it can be a chore to add them with the Insert / Hyperlinks … command. Fortunately, Visio 2007 Professional has the Data / Link Data to Shapes … command.
If you were to have a data source, such as an Excel spreadsheet, that contains hyperlinks (see the example below)…
A recent newsgroup post asked how to find a row in a Visio DataRecordset for a given criteria. Well, I have used the IT Asset Management sample in Visio 2007 Professional to demonstrate how this can be done with a VBA function.
Of course, you may wish to improve the user interface because I limited myself to using an InputBox, and I have assumed that there is only one column defining the primary key of the DataRecordset.
The sub function, FindRow, listed below first checks whether the External Data window is open, and then gets the active DataRecordset. The code then reads the columns of the DataRecordset and prompts for a selection of the number of the column that you wish to search for a value in.
A recent newsgroup post asked about the ShapeSheet programming of lines in Visio to represent the hands of a clock. Well, it made me think, so here is my solution of a clock in Visio with just the ShapeSheet, and, for good measure, you can set it to refresh every minute!
There have been some posts recently about fonts may not displaying correctly in Visio, the Viewer, or in exports to PDF or XPS. So, I thought it would be good to be have a bit of code that enables you to see all of the different fonts on a Visio page. You can then use it to select a font, or to check how they are seen in different formats.
UPDATE March 2017 : I have now expanded this functionality into an add-in for Visio (see Layer Manager add-in for Visio released ).
Visio layering system is more complex than any CAD system I’ve worked with, and often catches users out. A Visio shape can belong to no layer, one layer or multiple layers simultaneously, and a layer can be visible or invisible; printable or non-printable. In fact, you can have a shape on a layer that is invisible but printable – a good way to put a watermark across a document.
Firstly, Visio layers are per page in a document, and secondly, Visio layers are stored as an index number with an associated name. Therefore, layer 1 on page 1 could be named Outline, but layer 1 on page 2 could be called something completely different!
View > Layer Properties will show you the layer settings on the active Visio page, but the # column, which gives you a count of shapes on each layer, can be misleading because the same shape can be on multiple layers, and even sub-shapes (those inside a grouped shape) are counted.
Public Sub StartMonitorShapes()
If ThisDocument.DocumentSheet.CellExists("User.MonitorShapes", Visio.visExistsAnywhere) Then
ThisDocument.DocumentSheet.Cells("User.MonitorShapes").Formula = "1"
End If
End Sub
Public Sub StopMonitorShapes()
If ThisDocument.DocumentSheet.CellExists("User.MonitorShapes", Visio.visExistsAnywhere) Then
ThisDocument.DocumentSheet.Cells("User.MonitorShapes").Formula = "0"
End If
End Sub