Método Application.CompareProjectVersions (Project)

Muestra el cuadro de diálogo Comparar versiones de un proyecto para comparar dos versiones de un proyecto.

Sintaxis

expresión. CompareProjectVersions

Expresión Expresión que devuelve un objeto Application .

Valor devuelto

Boolean

Comentarios

El método CompareProjectVersions es equivalente al comando Comparar proyectos en el grupo de informes de la ficha proyecto de la cinta de opciones. Si desea que el control mediante programación de la característica de comparación de proyecto (por ejemplo, si se muestran las columnas de diferencia), use el método CreateComparisonReport.

Ejemplo:

En el siguiente ejemplo se comprueba si un proyecto está abierto antes de llamar al método CompareProjectVersions. Si se abre un proyecto, el código comprueba si hay tareas o recursos en el proyecto antes de llamar al 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.