Detecting connection events?

[ClaireS]

Hi,

Does anyone know how to detect when a connector has been glued to another
shape?

Thanks,
Claire

 

[Al Edlund]

You might try something like this,
Al

Private WithEvents pagObj As Visio.Page

Private Sub pagObj_ConnectionsAdded(ByVal Connects As Visio.IVConnects)

Dim iConCt As Integer
Dim vsoShape As Visio.Shape

' Iterate through the connects collection passed to us
For iConCt = 1 To Connects.Count
' Do something with the info
With Connects(iConCt)
' get the name of the shape
Set vsoShape = Connects(iConCt).FromCell.Shape

End With
' MsgBox "connector added"
Next
End Sub