Just started VBA tonight, in need of help.

Hey guys,

I just started playing with visio's VBA tonight and its a wonderful thing, I've discovered. I do have a bit of a dilema, however.

I have a bunch of shapes that are connected in a flowchart fashion. Each shape has a property called "TheProperty" for the sake of this example. "TheProperty" is a boolean that I can change. What I've got is if "TheProperty" is true, the shape will turn green, if its "false" the shape will turn red.

What I'd like to do is to add another 'state' as it were. I would like to make it so that when I run the macro, the shape will change to blue if all the shapes that are connected to it (but not connected from it) have "TheProperty" as true for all of them.

Again, the real dilema, I'm sensing, is that I have to make a distinction between connections coming in vs connections going out and I don't know how to do that.

Here is my current code.

Code:

---

Sub Test()
Dim pag As Page
Dim shp As Shape

Set pag = Application.ActivePage
For Each shp In pag.Shapes
 If shp.CellExists("Prop.TheProperty", True) = True Then
    If (shp.Cells("Prop.TheProperty") = False) Then
        shp.Cells("FillForegnd") = 2
        shp.Cells("Char.Color") = 1
    Else
        shp.Cells("FillForegnd") = 3
        shp.Cells("Char.Color") = 0
    End If
' Here's where I need to have the thing mentioned above
    If (shp.FromConnects.Count > 0) Then
        shp.Cells("FillForegnd") = 4
        shp.Cells("Char.Color") = 0
    End If
       
 End If
 Next shp
 Set shpObj = Nothing
 Set shpObjs = Nothing

End Sub

---

I apologize if I am not clear. It's rather early in the morning. I would appreciate any direction someone could give me on this. If anyone needs clarification, let me know.

Many Thanks,
~Rob