взаимосвязь подсчета в проекте Microsoft

Да — если вы запустите следующий код в своем проекте, он создаст диалоговое окно, в котором будет указано, сколько зависимостей было определено в проекте:

Sub CountDependencies()

Dim i_RelationshipCount As Integer
Dim tsk As Task
Dim tsk_dep As TaskDependency

i_RelationshipCount = 0

For Each tsk In ActiveProject.Tasks
    If tsk Is Nothing Then GoTo NextTask
    For Each tsk_dep In tsk.TaskDependencies
       'only count predecessors (otherwsie will count each realtionship twice)
        If tsk_dep.To = tsk Then
            i_RelationshipCount = i_RelationshipCount + 1
        End If
    Next tsk_dep
NextTask:
Next tsk

MsgBox i_RelationshipCount & " dependencies/relationships exist in this schedule."

End Sub

Ответ @AndrewEversight абсолютно правильный. FWIW: Вот небольшая процедура, которая даст вам тот же результат:

Sub CountDependencies()

Dim i_RelationshipCount As Integer
Dim tsk As Task

i_RelationshipCount = 0

For Each tsk In ActiveProject.Tasks
    If Not tsk Is Nothing Then
         i_RelationshipCount = i_RelationshipCount + tsk.PredecessorTasks.Count
    End If
Next tsk

MsgBox i_RelationshipCount & " dependencies/relationships exist in this schedule."

End Sub