Visio and VBA module

Topic

New Reply

Where in Visio would I include the VBA module below?

Sub ColourMe()
Dim aShp As Visio.Shape
For Each aShp In ActivePage.Shapes
If aShp.CellExists(“Prop.Department”, True) Then
Select Case aShp.Cells(“Prop.Department”).FormulaU
Case “””East”””
aShp.FillStyle = “East”
Case “””West”””
aShp.FillStyle = “West”
Case Else
aShp.FillStyle = “Other”
End Select
End If
Next aShp
End Sub

Reply | Quote

Replies

Type Alt-F11 to open the Visual Basic Environment
Insert > Module
Copy the code and paste it into the pane on the right

Reply | Quote