Visio5: Como forçar um conector dinâmico para recalcular o caminho

Public Sub ReCalcConnector()
    Dim visApp As Visio.Application
    Dim visSelection As Visio.Selection
    Dim visShape As Visio.Shape
    Dim i As Integer
    
    Set visApp = ThisDocument.Application
    Set visSelection = visApp.ActiveWindow.Selection
    
    'Check the count in the collection.
    '
    If visSelection.Count = 0 Then
        MsgBox "No Shape(s) selected.", vbOKOnly, "ReCalcConnector"
        Exit Sub
    End If
    
    For i = 1 To visSelection.Count
        'Get the next item in the collection.
        '
        Set visShape = visSelection(i)
        'Check the shape type.
        '
        If visShape.Master = "Dynamic connector" Then
            'Force the dynamic connectors to recalculate their paths.
            '
            visShape.Cells("ObjType").Formula = 0
            visShape.Cells("ObjBehavior").Formula = 0
            DoEvents
            visShape.Cells("ObjType").Formula = 2
        End If
        
    Next i

End Sub