Метод Application.CompareProjectVersions (Project)

Статья
04/07/2023

Отображает диалоговое окно Сравнение версий проекта для сравнения двух версий проекта.

Синтаксис

выражение. CompareProjectVersions

Выражение Выражение, возвращающее объект Application .

Возвращаемое значение

Boolean

Примечания

Метод CompareProjectVersions эквивалентен команде Compare Projects в группе Отчеты на вкладке Проект на ленте. Если требуется программное управление функцией сравнения проектов (например, отображение разностных столбцов), используйте метод CreateComparisonReport .

Пример

В следующем примере проверяется, открыт ли проект перед вызовом метода CompareProjectVersions . Если проект открыт, код проверяет наличие задач или ресурсов в проекте перед вызовом метода .

Sub CompareVersions () 
    If Projects.Count = 0 Then 
        MsgBox "You must have at least one project open before you can compare projects." 
    Exit Sub 
 
    ElseIf ActiveProject.Tasks.Count = 0 Then 
        If ActiveProject.ResourceCount = 0 Then 
            MsgBox "There are no task or resources in the current project." & vbCrLf & _ 
                "Open a project with either tasks or resources before creating a comparison report.", _ 
                vbInformation 
            Exit Sub 
        End If 
    End If 
 
    CompareProjectVersions 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через