Método Application.CompareProjectVersions (Project)

Exibe a caixa de diálogo Comparar Versões do Projeto para comparar duas versões de um projeto.

Sintaxe

expression. CompareProjectVersions

Expressão Uma expressão que retorna um objeto Application .

Valor de retorno

Boolean

Comentários

O método CompareProjectVersions é equivalente ao comando Comparar projetos no grupo relatórios da guia projeto da faixa de opções. Se desejar que o controle de programação do recurso de comparação do projeto (por exemplo, se diferença colunas são exibidas), use o método CreateComparisonReport.

Exemplo

O exemplo a seguir verifica se um projeto é aberto, antes de chamar o método CompareProjectVersions. Se um projeto é aberto, o código verifica se há tarefas ou recursos do projeto antes de chamar o método.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.