Results 1 to 2 of 2
  1. #1
    2 Star Lounger
    Join Date
    Apr 2003
    Location
    Jacksonville, North Carolina, USA
    Posts
    173
    Thanks
    0
    Thanked 0 Times in 0 Posts
    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

  2. #2
    Plutonium Lounger
    Join Date
    Nov 2001
    Posts
    10,550
    Thanks
    0
    Thanked 7 Times in 7 Posts
    Type Alt-F11 to open the Visual Basic Environment
    Insert > Module
    Copy the code and paste it into the pane on the right

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •